тест в delphi

[!2marselo12]

в общем , разместил на одну панель радиогруппы. сделал их всех невидимыми. Добавил button1. И у меня не получается оператор If.
Например, мы нажали на кнопку и если radiogroup1 visible=true , то мы делаем её невидимой и следующая радиогруп становится видимой.
Помогите

[Iron Monk]

Так сколько всего радиогруп?

[!2marselo12]

Сообщение от Iron Monk

Так сколько всего радиогруп?

пока 5, планирую около 10

[Iron Monk]

Если с if

procedure TForm1.Button1Click(Sender: TObject);
begin
    if RadioGroup5.Visible then
      begin
      RadioGroup5.Visible:= false;
      RadioGroup1.Visible:= true;
      end else
        if RadioGroup4.Visible then
          begin
          RadioGroup4.Visible:= false;
          RadioGroup5.Visible:= true;
          end else
            if RadioGroup3.Visible then
              begin
              RadioGroup3.Visible:= false;
              RadioGroup4.Visible:= true;
              end else
                if RadioGroup2.Visible then
                  begin
                  RadioGroup2.Visible:= false;
                  RadioGroup3.Visible:= true;
                  end else
                    if RadioGroup1.Visible then
                      begin
                      RadioGroup1.Visible:= false;
                      RadioGroup2.Visible:= true;
                      end else
                        RadioGroup1.Visible:= true;
end;
end.

[type_Oleg]

Не понял, как надо.
Нажал Button - стала видимая 1-я RG (остальные невидимые), нажал еще раз - видимая 2-я RG (остальные невидимые), и т.д.
Так ?

[!2marselo12]

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

Не понял, как надо.
Нажал Button - стала видимая 1-я RG (остальные невидимые), нажал еще раз - видимая 2-я RG (остальные невидимые), и т.д.
Так ?

у меня компонент мэйн меню. если я нажимаю вторую вкладку то 1 радиоогруп становится видимой(хотя в свойствах она невидимая)

Сообщение от Iron Monk

Если с if

procedure TForm1.Button1Click(Sender: TObject);
begin
    if RadioGroup5.Visible then
      begin
      RadioGroup5.Visible:= false;
      RadioGroup1.Visible:= true;
      end else
        if RadioGroup4.Visible then
          begin
          RadioGroup4.Visible:= false;
          RadioGroup5.Visible:= true;
          end else
            if RadioGroup3.Visible then
              begin
              RadioGroup3.Visible:= false;
              RadioGroup4.Visible:= true;
              end else
                if RadioGroup2.Visible then
                  begin
                  RadioGroup2.Visible:= false;
                  RadioGroup3.Visible:= true;
                  end else
                    if RadioGroup1.Visible then
                      begin
                      RadioGroup1.Visible:= false;
                      RadioGroup2.Visible:= true;
                      end else
                        RadioGroup1.Visible:= true;
end;
end.

Спасибо большое!

[Iron Monk]

Если много однотипных контролов и будут еще добавляться - проще пронумеровать Tag всех RadioGroup и описать процедуру:

var
n: integer = 1;

procedure TForm1._pRg(i: integer);
var
m: integer;
begin
    for m:= 0 to ControlCount - 1 do
         if  (Components[m]).Tag = i then
              TRadioGroup(Components[m]).Visible:= true
         else (Components[m] as TRadioGroup).Hide;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    _pRg(n);
   if n = 5 then n:= 0;
   inc(n);
end;
end.

[exyl]

Я бы сделал через PageControl, в креэйте формы убрав в цикле видимые ярлычки у страниц, а по нажатию кнопки вызывая NextPage.

[Iron Monk]

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

Я бы сделал через PageControl, в креэйте формы убрав в цикле видимые ярлычки у страниц, а по нажатию кнопки вызывая NextPage.

Я от лени своей природной в тесте использовал бы только один RadioGroup. И массивы заданий менял.