procedure TForm1.Button1Click(Sender: TObject); 这个(Sender: TObject)参数是啥意思? 可否举个例子

Question

如题目

Answer 1

好象几周前才有这么一个问题的。
Sender: TObject也就是一个TObject类型的参数而已，别想得太复杂。这种一般在类的事件中比较多见，一般这个Sender即为该类自身。
比如：
procedure TForm1.Button1Click(Sender: TObject); 
begin
  //如果你没在外部自行调用这个函数，那么Sender一般即是Button1，如果Button关联了TAction，则常为关联的TAction
  ShowMessage(TButton(Sender).Name);
end;

Answer 2

ShowMessage((sender as tbutton).name);   有点意思.

Answer 3

下面的例子更有利于你理解Sender!!
sender可以不是它自己的
procedure TForm1.Button2Click(Sender: TObject);
begin
  button1click(sender);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
    showmessage(Tbutton(sender).caption+' call me');
end;
我的分数太少了，害怕不能问问题了，还往多给些分！！！！！！！