Hi,
die Tastaturschnittstelle hast du ja mit TabStop im Griff. Für die Mausschnittstelle musst die RadioButtons in der Group zähmen. Gib der Group etwas Code für das Event OnEnter():
Delphi-Quellcode:
procedure TDataForm.DBRadioGroupEnter(Sender: TObject);
begin
if Sender is TRadioButton then
with Sender as TRadioButton do
Parent.SetFocus;
end;
Im Event OnCreate() der Form ist das folgende hilfreich:
Delphi-Quellcode:
procedure TDataForm.FormCreate(Sender: TObject);
var
i: Integer;
begin
with DBRadioGroup do
for i := 0 to Pred(Items.Count) do
begin
Buttons[i].OnEnter := DBRadioGroupEnter;
Buttons[i].TabStop := False;
end;
end;
Mich stört das FocusRect ja nicht so, aber mehr Aufwand würde ich jetzt auch nicht mehr treiben.
Grüße vom marabu