5,386
社区成员
发帖
与我相关
我的任务
分享动态生成的控件
我用DELPHI写了一个根据需要生成一个BUTTON，但是我不知道如何让BUTTON键响应CLICK事件，请各位大虾们多多指教，请详细一点。
...全文
请发表友善的回复…
发表回复
zhujianzhou 2001-07-16
- 打赏
- 举报
多谢，如何给分？
Crob 2001-07-16
- 打赏
- 举报
扩充一下BaldZhang(BaldZhang)兄的源代码，使之可以识别出具体是哪个动态生成的button
button.OnClick := buttonclick;
button.tag := 123;
procedure TForm1.buttonclick(sender: TObject);
begin
if TButton(sender).tag = 123 then begin
end;
end;
button.OnClick := buttonclick;
button.tag := 123;
procedure TForm1.buttonclick(sender: TObject);
begin
if TButton(sender).tag = 123 then begin
end;
end;
BaldZhang 2001-07-16
- 打赏
- 举报
button.OnClick := buttonclick;
procedure TForm1.buttonclick(sender: TObject);
begin
end;
procedure TForm1.buttonclick(sender: TObject);
begin
end;
