delphi - (发件人 :TObject)

Question

(发件人:TObject)是什么意思？如:

procedure TForm1.Button1Click(Sender:TObject);

var
s: Integer;

begin
.....
.....
end;

Answer 1

Sender 是对触发事件的组件的引用。在本例中，Sender 将是用户单击的按钮，该按钮调用了 Button1Click 事件。

当您有多个组件调用同一事件并且您需要找出哪个组件导致事件被触发时，这非常有用。

例如，您可以执行以下操作:

if Sender = Button1 then
// ...