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.