如何动态的添加一个控件的事件？

Question

例如：
//定义一个事件处理过程
procedure btClick(Sender :TObject)
begin
  showMessage('adfsadf'0;
end;//动态创建
var
  bt :TButton;
begin
  bt :=TButton.Create(Application);
  bt.Parent :=Form1;
  bt.Click :=btClick;
end;

Answer 1

自定义一个过程，过程名称自己选择，但参数与你上面的事件的参数一致，
在这个过程中处理的过程与你在事件中处理的一样，最后类似于下面的赋值dxInspector1Row1Button.onclick := 过程名

Answer 2

事件方法要声明在类中
procedure Tform1.myClick(Sender: TObject;）
然后在OnCreate
  button1.Onclick:=myclick
就可以了

Answer 3

声明   procedure yourevent(DataSet: TDataSet); virtual;
实现 if not Assigned(Tcontrol.Event) then
       Tcontrol.Event := yourevent;

Answer 4

照着做了，但编译时提示出错：[Error] whjzpzl_xzunit.pas(314): Missing operator or semicolon

Answer 5

例如：
//定义一个事件处理过程
procedure btClick(Sender :TObject)  //此处少写一个分号
begin
showMessage('adfsadf'0;  //此处“0”应为“)”
end;