Хочу сделать маленькую программу с ответами "Да" и "Нет" через radiobutton
.
Например, на форме 1 label
, 2 radiobutton
(сейчас), 1 button
(далее).
В label пишу "У тебя иномарка"?
Ответы - Да и Нет
. При клике на Да
, показываем следующий вопрос: "Дорогая"?
и также ответы "Да и Нет"
, соответственно, если нажали на "Нет"
, то появляется другой вопрос и т.д.
Не хочется создавать кучу radiobuttons, но и надо в конце получить результат в зависимости от ответов.
Как реализовать такое?
Изначально
procedure TForm1.FormCreate(Sender: TObject);
begin
Title.Caption := 'У тебя иномарка?';
end;
procedure TForm1.NextClick(Sender: TObject);
begin
if(Yes.Checked) then
Title.Caption := 'Honda?';
if(No.Checked) then
Title.Caption := 'Москвич?';
end;
Ну и в зависимости от этих вариантов должны идти опять radiobutton и задаваться другие вопросы