Bevor du so etwas machst, solltest du aber prüfen ob der Sender auch tButton in seinem Stambaum hat bzw. tButton ist.
Es sollte also so aussehen:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| procedure TForm1.AnyButtonClick(Sender: TObject);
begin
if (sender is tButton) then begin
tButton(sender).Caption := 'MeineCaption';
end;
end; |
oder wie bei
Robinator mit with:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure TForm1.AnyButtonClick(Sender: TObject);
begin
if (sender is tButton) then begin
with TButton(Sender) do begin
Caption := 'MeineCaption'; end;
end;
end; |
Was auch hilfreich ist wenn du in längeren Methoden mehrfach drauf zugreifen muss und wenn du nicht ständig Typecasten willst, ist dir einfach eine Hilfsvariable zu definieren:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure TForm1.AnyButtonClick(Sender: TObject);
var
ThisButton : tButton;
begin
if (sender is tButton) then begin
ThisButton := tButton(sender)
ThisButton.Caption := 'MeineCaption';
end;
end; |
Hier kannst du dann im Laufe der procedure immer wieder über die Variable
ThisButton auf deinen Knopf zugreifen.
Gruß
Klabautermann
