TButtongroup - Focus auf einen Eintrag setzen

[wadriller]

Hallo zusammen.

Ich bauen momentan eine Maske mit einer TButtongroup.
Die Buttongroup hat mehrere Einträge, und je nachdem welcher geklickt wird, erscheint nebendran auf einem Pagecontrol eine andere Page.

Jetzt habe ich aber das Problem das, egal welchen Button ich klicke, der Fokus (gepunktetes Rechteck) immer auf dem ersten Button steht.

Das Umschalten usw. funktioniert. Nur dieser blöde Fokus wandert nicht.

Kann ich den irgendwie einem Button zuweisen, oder ganz verschwinden lassen ?

Habe schon mit dem OnDraw Events gespielt, aber es will nicht so wie ich will :wall:

Hab noch ein Bild zur besseren Darstellung angefügt.

EDIT: In dem Bild ist der Punkt Datensicherung aktiv, der Fokus steht aber immer auf "Allgemein"

[wadriller]

Konnte es gerade selbst lösen.

Einfach eine Neue Komponente "MyButtonGroup"

Diese bekommt eine Published Property "KeinenFokusZeigen" und überschreibt das ButtonDraw Event
Damit wird kein Fokues mehr gezeigt.

Delphi-Quellcode:

procedure TMyButtonGroup.DrawButton(Index: Integer; Canvas: TCanvas; Rect: TRect; State: TButtonDrawState);
begin
  if KeinenFokusZeigen then begin
    if bdsFocused in State then
      State := State - [bdsFocused];
  end;
  inherited;
end;

[shmia]

Evtl. reicht es auch, das Property ItemIndex auf -1 zu setzen... (hab kein D2010, also nur Vermutung)