почему Radiobutton не отжимается?

[Максим-2]

У нас есть форма1 на ней кнопка1.
При нажатии кнопки1 открывается форма 2 на ней Radiobutton-ы 3 шт
в зависимости от нажатия радиобаттона выводится соответсвующий Inputbox где вводятся данные, которые затем обрабатываются и вводятся в первую форму.
Внимание вопрос
первый раз все четко работает, но если повторно нажать кнопку1 на первой форме, при переходе ко второй форме радиобаттон оказывается уже нажатым! и никакие form2.radiobutton1.chekced:=false; не помагают его отжать!!!
В чем проблема, ребята?

[mihali4]

Странные вы вещи рассказываете...
Можете сделать

procedure TForm2.FormActivate(Sender: TObject);
begin
RadioButton1.Checked:=False;
end;

Да и по нажатию баттона (для проверки) - то же самое сделать.
И все работает...

[Максим-2]

Ха! да в том то и дело, что слово в слово у меня в программе есть такой код, работает только первый раз! Второй раз запуская, без закрытия программы уже radiobutton1 нажат!!! по всей программе понатыканы Radiobutton1.chekced:= False; при построчном выполнении програмы видно,что она не перескакивает это обнуление, обрабатывает! но ...
это ничего не меняет, форма2 во второй раз выскакивает уже с нажатым радиобаттоном!!!

[NoName_emaNoN]

Попробуйте разрушать и при нажатии на кнопку заново создавать Form2.

[Максим-2]

разрушать и создавать?
то есть пользоваться когда закрывается Form2
Form2.destroy;

а когда перехожу к ней
Form2.create;?
Спасибо, попробую

[Максим-2]

Ладно, объясню проще:
Создайте форму1 с кнопкой
в форме2 создайте радиобаттон
запустите программу, нажмите кнопку, выскочит форма2 на которой нажмите радиобаттон
теперь закройте форму2 и опять нажмите кнопку форма2 высветится с уже нажатым радиобаттоном, и никакие Form1.radiobutton1.checked:= False; и Form2.radiobutton.checked:=False; не помогут!!!
Вопрос : Почему???

[Neeter]

Дак напишите

Form2.radiobutton.checked:=False;

После показа формы в коде кнопки.

т.е.

procedure TForm1.Button1Click(Sender: TObject);
begin
 form2.Show;
 form2.RadioButton1.Checked := false;
end;

[W0LF]

Максим-2 незнаю что вам не нравит(ь)ся, но предложенНый вариант вЫше, про разрушение при закрытии и создании при нажатии на кнопке формы2, действительно работает.

procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
Form2.show;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form2.Destroy;
end;

И удалите создание формы2 из Auto-Create в опциях проекта.

[EDIT]

Способ Neeter'a тоже рабочий )

procedure TForm1.Button1Click(Sender: TObject);
begin
 form2.Show;
 form2.RadioButton1.Checked := false;
end;

[Максим-2]

второй код (Способ Neeter'a) точно не действует, проверял
а первый - попробую, спасибо большое!

И удалите создание формы2 из Auto-Create в опциях.
это где?

[Neeter]

Мы вам оба сказали что способ рабочий. Сначала проверьте на новом проекте, прежде чем опровергать.