Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jelly,
18. Mär 2006
Nichts leichter als das, sagte Piggeldi...
procedure TForm8.Button1Click(Sender: TObject);
begin
if Sender is TButton
then TButton(Sender).Caption := 'Neue caption' ;
end;
oder
procedure TForm8.Button1Click(Sender: TObject);
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Jelly,
10. Sep 2005
Beim OnClick Ereignis des Buttons wird immer ein Sender als TObject mit übergeben, der ein Pointer zum Button selbst ist, und den du im Ereignis als Sender as TButton ansprechen kannst.