Delphi Sender的概念和用法

Sender的概念和用法

一.概念
Sender就是事件的载体，其类型是Tobject，它告诉Delphi哪个控件接收这个事件并调用相应的的处理过程。Sender往往代表了 “事件的触发者”或者说“这个外挂的事件处理函数的调用者”
比如：
Pascal
procedure TForm1.Button1Click(Sender: TObject);begin
     Label1.Caption:=Tbutton(sender).Caption;
     //就是把按钮的名字显示出来end;

二.用法
例一：
Pascal
procedure TForm1.Edit1Click(Sender: TObject); begin 
    with Sender as TEdit do  //将sender作为TEdit类使用 ,as操作符是类型转换。
    begin 
        Text:='hello';
    end; end;
例二：
Pascal
procedure TForm3.Image9Click(Sender: TObject);begin
    DiaoYong(Sender);end;procedure TForm3. DiaoYong(Sender: TObject);begin
    with Sender as TImage do
    begin
        Image0.Picture:=Picture;//等号后的Picure即Sender的Picture
    end;end;
例三：
Pascal
Procedure TForm1.Button1Click(Sender:TObject); begin 
    if Sender=Button1 then
    begin 
    //Do Sth; 
    end;
 
    if Sender=Button2 then 
    begin
    //Do Sth;
    end;end; 
 procedure TForm1.Button2Click(Sender:TOBJect); begin 
    Button1Click(Button2); end;