(发件人:TObject的)

Question

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

procedure TForm1.Button1Click(Sender:TObject);

var
s: Integer;

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

Answer 1

Sender是对触发事件的组件的引用.在这种情况下,Sender将成为用户单击的按钮,该按钮调用Button1Click事件.

当您有多个组件调用同一事件并且需要确定哪个组件导致事件被触发时,这非常有用.

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

if Sender = Button1 then
// ...