[РЕШЕНО] Инициализация RadioButton при открытии окна

[speed_vm]

Здравствуйте, уважаемые!
Предыстория. Имеется установленная IDE Lazarus 1.0.4. В ней создан проект. В проекте две формы: главная и побочная. Побочная форма показывается посредством выбора пункта меню. На побочной форме имеется два объекта GroupBox, в которых имеется по два объекта RadioButton. На событии побочной формы OnShow висит процедура FormShow, в которой прописано следующее

Код: Выделить всё

...
RadioButton1.Checked:= True;
RadioButton3.Checked:= True;
...


Проблема. При первом открытии побочной формы естественно выбор радиокнопок верный. При последующих открытиях побочной формы остаются выбранными те радиокнопки, которые были выбраны перед закрытием формы.
Баг1. Если выполнять программу пошагово, то код, описанный выше, срабатывает.
Баг2. Если перед закрытием формы нажать на какую-нибудь кнопку (даже если на неё никаких действий не повешено) или раскрыть список ComboBox, код срабатывает.
Баг3. Если закрывать форму посредством нажатия на кнопку, на которую повешено событие Close, код срабатывает.
Добрые люди! Помогите справиться с сей бедой, ибо КровьИзНоса нужно, чтобы при открытии побочной формы радиокнопки были выбраны только те, которые указаны.

[Light13]

Вынесите установку значений в отдельный public метод и вызывайте его перед показом формы.
Можно даже свой метод сделать для инициализации и показа.

Код: Выделить всё

TChildForm = class(TForm)
  ...
public
  procedure SetDefault;
  procedure CustomShow;
end;

...

procedure TChildForm.SetDefault;
begin
  RadioButton1.Checked:= True;
  RadioButton3.Checked:= True;
end;

procedure TChildForm.CustomShow;
begin
  SetDefault;
  Show;
end;


[Frolik]

А можно вообще создавать форму на лету.

Код: Выделить всё

ChildForm:=TChildForm.Create(self);
ChildForm.ShowModal;
ChildForm.Free;

установку начальных значений тогда поместить в TChildForm.Create, onShow убрать нафиг, из lpr убрать создание формы.

[speed_vm]

Вынесите установку значений в отдельный public метод и вызывайте его перед показом формы.
Можно даже свой метод сделать для инициализации и показа.

Код: Выделить всё

TChildForm = class(TForm)
  ...
public
  procedure SetDefault;
  procedure CustomShow;
end;

...

procedure TChildForm.SetDefault;
begin
  RadioButton1.Checked:= True;
  RadioButton3.Checked:= True;
end;

procedure TChildForm.CustomShow;
begin
  SetDefault;
  Show;
end;


Сделал всё, как написано. В первой группе при запуске формы активной становится первая радиокнопка. НО! Во второй группе активной остаётся та, что была до закрытия! Я просто в шоке.

[Frolik]

Сделал всё, как написано. В первой группе при запуске формы активной становится первая радиокнопка. НО! Во второй группе активной остаётся та, что была до закрытия! Я просто в шоке.

В этом случае дочернюю форму нужно открывать методом CustomShow.

[speed_vm]

Не знаю, на счёт последнего ответа Frolik (не проверял). Всё работает (и без манипуляций, предложенных Light13), если перед закрытием формы перевести фокус с радиокнопки на какой-нибудь другой объект.
Благодарю всех за помощь. Тема закрыта.