请举例说明sender参数的作用

Question

delphi程序的事件过程里都有sender参数，请问他表示什么？请举例说明

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  TButton(Sender).Width := 140;
  TButton(Sender).Height := 230;
  TButton(Sender).Cursor := crHandPoint;
  TButton(Sender).Caption := '看到了吗？懂了吗？';
end;

Answer 2

TButton(Sender)----看不懂表示什么

Answer 3

TButton(Sender)强制类型转换，将Sender的类型强制指定为TButton。

Answer 4

还可以这样用的,呵呵
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage('aaa');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  Button1Click(Sender);
end;

Answer 5

窗体上放几个button，button1的click事件里写：
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(TButton(Sender).Caption);
end;其余button的click事件全部指向button1click（别告诉你不会），然后自己看效果

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
begin
  TButton(Sender).Width := 140;
  TButton(Sender).Height := 230;
  TButton(Sender).Cursor := crHandPoint;
  TButton(Sender).Caption := '看到了吗？懂了吗？';
  showmessage(TButton(Sender).Name);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  Button1Click(Sender);
end;这样，我想楼主应该看得明白了

Answer 7

Sender存储了促发该事件的对象的指针。例子就是上面各位大拿写的

Answer 8

如有两个text控件,在程序中要区共享程序可以用:
(sender as tedit).text:='asdfadsf'
使用方法很多