Sender???

[Sharky]

Zitat von Alex_ITA01:

Sharky
ich hab mal ne frage:
angenommen ich hab 2 buttons und will mit sender überprüfen welcher von den beiden geklickt wurde und dann jeweils zwei andere anweisungen durchlaufen lassen

Dann brauchst Du ein eindeutiges Merkmale der Buttons. Dies wäre z.B. der Name. Dieser kann ja nur einmal vorkommen.

Delphi-Quellcode:

procedure TForm1.TestClick(Sender: TObject);
begin
 If (sender IS TButton) then
  begin
   If (sender As TButton).Name = 'Button1') then
    begin
    end;
   If (sender As TButton).Name = 'Button2') then
    begin
    end;
  end;
end;

Oder Du machst dies über die Tag Eigenschaft der Buttons.

Delphi-Quellcode:

procedure TForm1.TestClick(Sender: TObject);
begin
 If (sender IS TButton) then
  begin
   Case (sender As TButton).Tag of
    1:
    2:
    3:
   end;
end;

[Edit] Bei zwei Buttons kannst Du natürlich auch für jeden eine eigene OnClick Procedure machen.
Es ist echt davon abhängig was mach machen möchte ob man mit dem Sender arbeitet oder für jedes Objekt eine Eigene Ereignissprocure schreibt.