Я хочу сделать переход на формы используя RadioGroup и Button

[DarkMorfius]

Я хочу сделать переход на формы используя RadioGroup и Button
Т.е будет 4 формы
Первая основная от куда и будет происходить переход к форме 2,3 и 4
А именно переход будет выполнен когда активна какая нибудь из "Галочек"(прошу прощения забыл как она верно называется) в RadioGroup и после нажата Button.

Мне нужен правильный код, я пытался но у меня получался переход сразу после выбора "галочки" в RadioGroup.
Как то так выглядит основная форма:

[DarkMorfius]

Пытался использовать Case of (но моих мозгов не хватило)

[ura_111]

код покажи (может быть просто "if(....)").
А язык какой? Делфи7?

[DarkMorfius]

Язык Delphi 7
Код я не сохранил т.к мучался с RadioGroup, ничего не вышло и пошел другим путём.
Попытался через CheckBox там юзал был код примерно...
if checkbox1.Checked=false then
begin
btn1.Enabled:=false
end
else (и что то еще)
(здесь я пытался сделать так что бы при активном CheckBox становилась доступна кнопка и при нажатии на кнопку переходило на форму.
)
В итоге тоже ничего не вышло.
И я вышел несохранив "результат"

[DarkMorfius]

на данный момент код просто "тупой"
procedure TForm1.rb1Click(Sender: TObject);
begin
if rb1.Enabled then Form2.show;
end;

procedure TForm1.rb2Click(Sender: TObject);
begin
if rb2.Enabled then Form3.show;
end;

end.

[ura_111]

Попробуй так:

procedure TForm1.Button1Click(Sender: TObject);
begin
    if RadioGroup1.ItemIndex=0 then form2.Show;
    if RadioGroup1.ItemIndex=1 then form3.Show;
    if RadioGroup1.ItemIndex=2 then form4.Show;
end;

Я правильно понял:
1) элемент RadioGroup
2) выбор -переключения ты создал с помощью свойства RadioGroup ("Items")
3) тебе надо, чтобы "сначала был выбор номера перечисления, а потом нажать кнопку Button1".

Так?

[ura_111]

А откуда у тебя на форме 1 вторая кнопка?

[ura_111]

Так, по-шагам:

0.jpg

1.jpg

2.jpg



3.jpg

Результат:

4.jpg

[DarkMorfius]

Огромное спасибо ura_111 , не знал как все это верно записать. Просто ОГРОМНОЕ спасибо, выручили очень.
И Спасибо за шикарный туториал :D

[DarkMorfius]

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

Попробуй так:

procedure TForm1.Button1Click(Sender: TObject);
begin
    if RadioGroup1.ItemIndex=0 then form2.Show;
    if RadioGroup1.ItemIndex=1 then form3.Show;
    if RadioGroup1.ItemIndex=2 then form4.Show;
end;

Я правильно понял:
1) элемент RadioGroup
2) выбор -переключения ты создал с помощью свойства RadioGroup ("Items")
3) тебе надо, чтобы "сначала был выбор номера перечисления, а потом нажать кнопку Button1".

Так?

Все верно, это я и пытался сделать (но руки с одного места писали не туда куда надо :D )