Ошибка в компоненте TRadioGroup.
(Вероятнее всего, в самом Windows, а не в DELPHI).
Делаем форму F2, на которой панель Panel1 и на ней компонент L1:TRadioGroup.
Делаем кнопку Button1 на главной форме:
procedure TForm1.Button1Click(Sender: TObject);
begin
F2.L1.ItemIndex:=0;
F2.ShowModal;
end;
Теперь запускаем программу.
Нажимаем Button1.
Переключаем список выбора на вторую позицию.
Закрываем модальное окно.
Нажимаем Button1, снова.
Список выбора проболжает быть на второй позиции..
Как исправить:
procedure TForm1.Button1Click(Sender: TObject);
begin
F2.Panel1.Visible:=False; //Снимаем фокус с L1...
F2.Panel1.Visible:=True; //Теперь вернем все как было...
F2.L1.ItemIndex:=0;
F2.ShowModal;
end;
Теперь все работает как нужно.........
Просьба поделиться комментариями на тему.
