Delphi中Sender对象的定义

Delphi 中Sender对象的定义！ 

 

1.Sender的定义： 

每一个事件处理里面至少都有一个Sender参数。比如： 

procedure TForm1.Button1Click(Sender:TObject); 

begin 

... 

end; 

 

Sender的含义就是代表调用TForm1.Button1Click这个过程的控件. 由于Sender是TObject,所以任何object都可以赋给Sender. 

当你点击BUTTON1时，会产生一个Button1Click事件，系统会把Button1传递给Button1Click过程坐为参数，也就是所说的Sender. 

 

2.Sender的用法： 

 

<1>.由于Sender代表了调用所在过程的控件，那么你就可以直接把它拿来当那个控件用，不过如果要用属性的话，最好写成(Sender as 控件名).控件属性：=... 例如:                                

procedure TForm1.Edit1Click(Sender: TObject); 

begin 

with Sender as TEdit do         //将sender作为TEdit类使用 ,as操作符是类型转换。

begin 

text:=’hello’; 

end; 

end; 

 

<2>.如果在两个事件中处理同样的事情，那么可以利用Sender来省去重写同样的过程。例如： 

 

Procedure TForm1.Button1Click(Sender:TObject); 

begin 

do same sth.....; 

if Sender=Button1 then 

do sth....; 

if Sender=Button2 then 

do other sth....; 

end; 

 

procedure TForm1.Button2Click(Sender:TOBJect); 

begin 

Button1Click(Button2); 

end;