初學者的問題（關於事件）

Question

例如:Button1.Click:=YuorProcedure,当然事先你的申明你的Procedure
释放//Button1.Click:=nil;

Answer 1

参考如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
     if Sender is TButton then　//判断被点击对象的类型
     begin
               if Sender = Button1 then ShowMessage('sd')
          else if Sender = Button2 then ...
     end;
end;

Answer 2

窗體上按鈕動態生成要求點擊其中之一時現實其caption 過程已經寫好只是不知道該怎樣指定,因為按鈕的個數未知

Answer 3

procedure TForm1.Ev_ButtonClick(Sender: TObject);
begin
  //...
end;
Button1.OnClick := Ev_ButtonClick;注意：Button1.OnClick属性是TNotifyEvent类型的，TNotifyEvent的定义为：
TNotifyEvent = procedure (Sender: TObject) of object
因此你自己的过程一定要是一个类的成员函数。下面的用法是错的：procedure Ev_ButtonClick(Sender: TObject);//ButtonClick不是类的成员
begin
  //...
end;
Button1.OnClick := Ev_ButtonClick;

Answer 4

最简单的方法是设置控件的TAG属性

Answer 5

动态生成按牛时候旧给他的OnClick事件赋值啊或者，你可以通过Form的components属性给你关心的空件事件副值