Delphi中动态生成的button调用onclick如何传递参数

最新推荐文章于 2024-08-16 11:48:38 发布

weixin_33772645

最新推荐文章于 2024-08-16 11:48:38 发布

阅读量1.3k

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/rogee/archive/2010/09/20/1832040.html

这篇博客介绍了在Delphi编程中，如何为动态创建的Button组件设置OnClick事件，并在事件处理过程中传递参数。通过实例讲解了具体步骤和实现方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

代码

// 自定义事件过程，过程名可以任意取
procedure TForm1.OnClick(Sender: TObject);
begin
  if Sender is TButton then
  begin
    if TButton(Sender).Name = 'button1' then
      .. .
    else if TButton(Sender).Name = 'button2' then
      .. .
  end;
end;

// 创建TButton
var
  btn: TButton;

begin
  btn := TButton.Create(Application);
  btn.Name := ''; // 自己定义，注意不要有重复
  btn.Caption := ''; // 自己定义
  btn.OnClick := OnClick;
end;

转载于:https://www.cnblogs.com/rogee/archive/2010/09/20/1832040.html