(发送者:TObject)

Question

(发送者:TObject)是什么意思？？如下所示：

procedure TForm1.Button1Click(Sender:TObject);

var
s: Integer;

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

Answer 1

发送者是对触发事件的组件的引用。在本例中，发送者将是用户单击的按钮，它将调用您的Button1Click事件。

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

例如，你可以这样做：

if Sender = Button1 then
// ...

Answer 2

发送者是触发事件(调用事件处理程序)时经常使用的参数。大多数情况下，我会将其描述为触发事件的对象。

但您实际上可以将任何对象传递给Sender参数，只要它在这种特定情况下继承自TObject。正如Jim已经提到的，在这个特定的强制转换中，您向Button1的OnClick事件添加了一个事件处理程序。因此，当Button1被单击时，Tform1.ButtonClick方法将被执行，并且发送者将包含对您所单击的按钮实例的引用。

致以敬意，

Stefaan