Buttons ansprechen

[City Light]

Delphi-Quellcode:

{
Diese Procedure wird bei jedem Klick auf einen Button ausgeführt.
Als Form.Caption wird der Name des geklickten Buttons angezeigt.

Läßt sich z.B. gut verwenden um eine Vielzahl von Anweisungen
ohne onClick-Procedur für jeden Button nutzen zu müssen.
}


private
    procedure DoActiveControl(Sender: TObject);


procedure TForm1.DoActiveControl(Sender: TObject);
begin
  if ActiveControl is TButton then
     caption:=(ActiveControl as TButton).Name;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.OnActiveControlChange := DoActiveControl;
end;