在一个事件处理函数中，如何知道是哪个对象触发了这个事件？（新手）

Question

那个ｓｅｎｄｅｒ应该怎么用

Answer 1

if Sender is SomeControlTriggeredThisProc then
  SomeCodeImplementSomeFunction;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
 if (Sender as TComponent).Name='Button1' then showmessage('ok');
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
 if Sender=Button1 then showmessage('ok');
end;

Answer 4

for I := ComponentCount - 1 downto 0 do
  begin
    if sender=Components[I] then
      showmessage(Components[I].name);
    
  end;

Answer 5

if Sender is TButton then
  ShowMessage((Sender as TButton).Caption);

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage((Sender as TComponent).Name );
end;