Сброс значения в RadioGroup

[Shouldercannon]

Доброго времени суток!
Есть две формы:
Form1 с кнопкой, которая открывает Form2
Form2, на которой есть RadioGroup с двумя TStrings
Стандарт
Web

Задача заключается в том, чтобы по событию Form2.FormClose в RadioGroup всё время выбирался ItemIndex 0 - Стандарт. Не получается, постоянно отображается последний выбранный вариант.

[Аватар]

А что не получается? Так пробовал

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  RadioGroup1.ItemIndex:=0;
end;

[eval]

убрать из автосоздания форму, и начать писать правильно

[Shouldercannon]

Сообщение от Аватар

А что не получается? Так пробовал

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  RadioGroup1.ItemIndex:=0;
end;

Это и пробовал, не помогло.

Сообщение от eval

убрать из автосоздания форму, и начать писать правильно

Всё таки из-за чего это происходит?

[eval]

Всё таки из-за чего это происходит?

откуда нам знать? разве что через астральные чакры

я предположил что у вас TForm2 в автосоздании, следовательно она живет всю жизнь программы, это плохо по сути, ну и дает вот такие "эффекты".

[Shouldercannon]

TForm2 действительно в автосоздании.

[Аватар]

При автосоздании в лоб нет реакции ни в OnShow, ни в OnActivate, ни в OnClose. Видимо некая особенность архитектуры. Если из OnShow сообщение пользовательское послать, то работает:

    procedure ItemToZero(var Msg: TMessage); message WM_USER+1;
...
procedure TForm2.ItemToZero(var Msg: TMessage);
begin
  RadioGroup1.ItemIndex:=0;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  PostMessage(Handle,WM_USER+1,0,0);
end;

[eval]

Form2.RadioGroup1.ItemIndex:=0;
Form2.ShowModal;

но это криво

убирайте из авто.
лучше так

with TForm2.Create do begin
ShowModal;
Free;
end;