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

代码

//  自定义事件过程，过程名可以任意取
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