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;