动态控件响应事件

newpeng 2013-07-17 04:55:29
请教一个简单的问题:动态产生的按钮控件,parent不是窗口,只是窗口里面的表格,怎么响应事件?

btns[i]:=TButton.Create(nil);
btns[i].Parent:=tb;
btns[i].OnClick:=MyButtonClick;


procedure TForm1.MyButtonClick(Sender: TObject);
begin
ShowMessage('abc');
end;


...全文
113 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
newpeng 2013-07-18
引用 7 楼 s11ss 的回复:
TStringGrid继承关系: TCustomGrid在响应WM_Command时未调用inherited(原因未知),所以不能处理其子控件按钮的点击事件。 解决办法是让TStringGrid自行处理WM_COMMAND。
type
  TStringGrid=class(Grids.TStringGrid)
    procedure WMCommand(var Message: TWMCommand); message WM_COMMAND;
  end;

  TForm1 = class(TForm)
    sg: TStringGrid;//是我们重新定义过的TStringGrid

...

procedure TStringGrid.WMCommand(var Message: TWMCommand);
begin
  inherited;//保留TCustomGrid的处理代码
  with Message, TMessage(Message) do//将消息传给子控件
    Message.Result := SendMessage(Ctl, Msg + CN_BASE, WParam, LParam);
end;
可以了,测试成功。非常感谢。同时也感谢楼上所有的网友。
回复
newpeng 2013-07-18
引用 6 楼 jankercsdn 的回复:
TStringGrid不是容器类,所以不能是别的控件的Parent,就把Parent:=self,这也不影响你的按钮使用。 如果要把Button和Grid的行对应起来,可以在生成Button的时候,把行号记录在Button的Tag里。 更简单的办法是用第三方的StringGrid,比如Raize的,TMS的StringGrid都支持Cell里自动显示Button
如果让Parent:=self;会有一个大问题,就是显示,比如我界面上有tpagecontrol时,切换到别的tabsheet也会显示按钮,每次切换去隐藏很不方便的。
引用 7 楼 s11ss 的回复:
TStringGrid继承关系: TCustomGrid在响应WM_Command时未调用inherited(原因未知),所以不能处理其子控件按钮的点击事件。 解决办法是让TStringGrid自行处理WM_COMMAND。
type
  TStringGrid=class(Grids.TStringGrid)
    procedure WMCommand(var Message: TWMCommand); message WM_COMMAND;
  end;

  TForm1 = class(TForm)
    sg: TStringGrid;//是我们重新定义过的TStringGrid

...

procedure TStringGrid.WMCommand(var Message: TWMCommand);
begin
  inherited;//保留TCustomGrid的处理代码
  with Message, TMessage(Message) do//将消息传给子控件
    Message.Result := SendMessage(Ctl, Msg + CN_BASE, WParam, LParam);
end;
试试你提供的这种方法,看行不行。
回复
s11ss 2013-07-18
TStringGrid继承关系:


TCustomGrid在响应WM_Command时未调用inherited(原因未知),所以不能处理其子控件按钮的点击事件。

解决办法是让TStringGrid自行处理WM_COMMAND。
type
TStringGrid=class(Grids.TStringGrid)
procedure WMCommand(var Message: TWMCommand); message WM_COMMAND;
end;

TForm1 = class(TForm)
sg: TStringGrid;//是我们重新定义过的TStringGrid

...

procedure TStringGrid.WMCommand(var Message: TWMCommand);
begin
inherited;//保留TCustomGrid的处理代码
with Message, TMessage(Message) do//将消息传给子控件
Message.Result := SendMessage(Ctl, Msg + CN_BASE, WParam, LParam);
end;

回复
TStringGrid不是容器类,所以不能是别的控件的Parent,就把Parent:=self,这也不影响你的按钮使用。 如果要把Button和Grid的行对应起来,可以在生成Button的时候,把行号记录在Button的Tag里。 更简单的办法是用第三方的StringGrid,比如Raize的,TMS的StringGrid都支持Cell里自动显示Button
回复
newpeng 2013-07-17
tb是我的表格[TStringGrid]的名称。
回复
s11ss 2013-07-17
tb是 啥?
回复
newpeng 2013-07-17
不行,如果 改为 btns[i].Parent:=self;,就没问题,可以正常响应。
回复
btns[i]:=TButton.Create(self); 一般子控件要有Owner,这里是窗体
回复
haitao 2013-07-17
btns[i].OnClick:=MyButtonClick;就是了,与parent没什么关系 parent只是决定显示在什么位置
回复
相关推荐
发帖
Delphi
创建于2007-08-02

4923

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2013-07-17 04:55
社区公告
暂无公告