Использование ComboBox и RadioGroup

[Stepan_P]

Доброго времени суток!
Нужна помощь людей разбирающихся в Delphi. Задачка такова: на одной форме имеются компоненты RadioGroup и ComboBox. Нужно запрограммировать RadioGroup таким образом, чтобы при выборе, например, 1-го из них (Корпус А) были недоступны оставшиеся ComboBox, кроме расположенного прямо напротив RadioGroup "Корпус А" Подскажите пожалуйта, как это записать на Delphi? Сам в Delphi новичок и найти что-то подобное не удалось
Спасибо

[Аватар]

Размести комбобоксы в одном контейнере, например панели Panel1, сбрось доступность каждого из них в False, в свойство Tag помести 0, 1, 2 и 3 сверху вниз. И такой обработчик для клика на радиогруппе

procedure TForm1.RadioGroup1Click(Sender: TObject);
var i: Integer;
begin
  for i:=0 to Panel1.ControlCount - 1 do
    if Panel1.Controls[i] is TComboBox then Panel1.Controls[i].Enabled:=(Panel1.Controls[i].Tag=RadioGroup1.ItemIndex);
end;

[digitalis]

Наверно, так : при выборе, к примеру, Корпус А

ComboBox1.Enabled := True ;
ComboBox2.Enabled := False ; ...  и т.п.

Это без цикла - если их немного и число их не будет меняться динамически в процессе работы.

[Аватар]

Это без цикла

Как-то по пионерски )) Тогда уж так без цикла

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  ComboBox1.Enabled:=(RadioGroup1.ItemIndex=0);
  ComboBox2.Enabled:=(RadioGroup1.ItemIndex=1);
  ComboBox3.Enabled:=(RadioGroup1.ItemIndex=2);
  ComboBox4.Enabled:=(RadioGroup1.ItemIndex=3);
end;

[xxbesoxx]

Я бы сделал так

1) Процедур

  private
    { Private declarations }
     procedure ComboSelect;

2) тела это процедур

procedure TForm1.ComboSelect;
begin
  if (RadioButton1.Checked)   then
  begin
   ComboBox1.Enabled := true;
   ComboBox1.SetFocus;
   ComboBox2.Enabled := false;
   ComboBox3.Enabled := False;
   ComboBox4.Enabled := False;
  end
  else
  if (RadioButton2.Checked) then
  begin
   ComboBox1.Enabled := False;
   ComboBox2.Enabled := true;
   ComboBox2.SetFocus;
   ComboBox3.Enabled := False;
   ComboBox4.Enabled := False;
  end
  else
  if (RadioButton3.Checked) then
  begin
   ComboBox3.Enabled := true;
   ComboBox3.SetFocus;
   ComboBox1.Enabled := false;
   ComboBox2.Enabled := false;
   ComboBox4.Enabled := False;
  end
  else
  if (RadioButton4.Checked) then
  begin
   ComboBox4.Enabled := True;
   ComboBox4.SetFocus;
   ComboBox1.Enabled := false;
   ComboBox2.Enabled := false;
   ComboBox3.Enabled := False;
  end
end;

3) Вызиваю эту процедур на все RadioButton --OnClick

[Аватар]

Тоже по пионерски ))

[xxbesoxx]

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

Тоже по пионерски ))

Быть пионером это ещё "достижения" )

[digitalis]

Аватар - cнимаю шляпу... Код значительно красивше моего.
Карги арис, генацвале ?

[Stepan_P]

Аватар, спасибо. Все получилось!

P. S. Остальным тоже спасибо

[xxbesoxx]

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

Карги арис, генацвале ?

Да генацвале, можно снять шляпу! Но не забывайте одевать каску... Ж))) всё нормально.