Suche nach Komponente ähnlich wie TToolBar

[Uwe Raabe]

Zitat von completestranger:

Das abwählen der ToolButtons soll automatisch erfolgen, wenn man auf einen anderen Button oder Tabsheet klickt

Das lässt sich ganz einfach realisieren, wenn man im jeweiligen OnUpdate der Actions das Checked der Action anhand der aktuellen TabPage setzt (Beispiel für ABear):

Delphi-Quellcode:

procedure TMainF.ABearExecute(Sender: TObject);
begin
  PCContent.ActivePage := TSBear;
end;

procedure TMainF.ABearUpdate(Sender: TObject);
begin
  ABear.Checked := PCContent.ActivePage = TSBear;
end;

Nebenbei ist dann auch nur immer der richtige Button als Down markiert.