Buttons gleichschalten

[turboPASCAL]

Du kannst jedem Butten die gleiche ButtonClick Procedure zuweisen im OI.
In dieser kannst du dann zB. über den Button.Tag herrausfinden
welcher Button angeklickt wurde. Natürlich musst du dann jedem
Button einen Tag zuweisen.

Delphi-Quellcode:

procedure TForm1.AllRedButtonsClick(Sender: TObject);
begin
  if Sender is TButton then
  begin
    case TButton(Sender).Tag of
      10: Print;
      20: MakeNwe;
      30: Close;
    end;
  end;
end;