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

代码 //  自定义事件过程，过程名能够任意取 procedure  TForm1.OnClick(Sender: TObject); begin    if  Sender  is  TButton  then    begin      if  TButton(Sender).Name  =   ' button1 '   then       .. .      else   if  TBu

>>阅读原文<<