sender:tobject
触发点击事件的对象

解决方案 »

  1.   

    zswang(伴水)(伤心中),您好!按照你的说法,也就是说此是TBottom了?是吗?应为触发此Click事件的是TBotton?不知道我的理解对吗?如果是这样的话?那么在此过程中有这样一个参数有什么作用呢?
    谢谢您了!
      

  2.   

    有时不同的按钮(或其它)
    都要执行同一个事件
    Sender就是用来区分的
      

  3.   

    procedure TForm1.ButtonClick(Sender: TObject);
    begin
      ShowMessage('你点了' + TButton(Sender).Name);
    end;procedure TForm1.FormCreate(Sender: TObject);
    begin
      Button1.OnClick := ButtonClick;
      Button2.OnClick := ButtonClick;
      Button3.OnClick := ButtonClick;
    end;