Generell zu dyn. Komponenten

[Jelly]

Nichts leichter als das, sagte Piggeldi...

Delphi-Quellcode:

procedure TForm8.Button1Click(Sender: TObject);
begin
     if Sender is TButton
     then TButton(Sender).Caption := 'Neue caption' ;
end;

oder

Delphi-Quellcode:

procedure TForm8.Button1Click(Sender: TObject);
begin
     if Sender is TButton
     then (Sender as TButton).caption := 'Neue caption' ;
end;