DBRadiogroup enabled aber readonly bei D7

[marabu]

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