[crazyman]

Добрый день! Подскажите плиз.
Есть несколько комбобоксов. Хотелось бы сделать, чтобы при выборе одной строки любого комбобокса, выбрались соответствующие по итеминдексу строки оставшихся комбобоксов.
Мой пример для выбора только по одному комбобоксу

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
var m:integer;
begin
for m:=0 to ComponentCount-1  do
begin
if (Components[m] is TComboBox) then
(Components[m] as TComboBox).ItemIndex:=combobox1.ItemIndex;
end;
end;

[and.enk]

Может не правильно понял ТЗ, вот так не пойдёт?

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
 var i:integer;
begin
 i:= ComboBox1.ItemIndex;
 if i > -1 then
  begin
   ComboBox2.ItemIndex :=i;
   ComboBox3.ItemIndex :=i;
  end;
end;

[Alegun]

Одно событие на все комбобоксы

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
var m:integer;
begin
for m:=0 to ComponentCount-1  do
begin
if (Components[m] is TComboBox) then
(Components[m] as TComboBox).ItemIndex:=(Sender as TComboBox).ItemIndex;
end;

[crazyman]

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

Одно событие на все комбобоксы

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
var m:integer;
begin
for m:=0 to ComponentCount-1  do
begin
if (Components[m] is TComboBox) then
(Components[m] as TComboBox).ItemIndex:=(Sender as TComboBox).ItemIndex;
end;

Тут событие он комбобокс1 чендж а нужно чтобы при изменение любого комбобокса менялись остальные
т.е. процедура ончендж на все комбобоксы

[crazyman]

Сообщение от and.enk

Может не правильно понял ТЗ, вот так не пойдёт?

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
 var i:integer;
begin
 i:= ComboBox1.ItemIndex;
 if i > -1 then
  begin
   ComboBox2.ItemIndex :=i;
   ComboBox3.ItemIndex :=i;
  end;
end;

не так я и сам могу)))
нужна одна общая процедура на все комбобоксы

[Alegun]

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

...нужно чтобы при изменение любого комбобокса менялись остальные...

Так и происходит, задайте в Object inspector для всех combobox один и тот же обработчик ComboBox1Change, кто его вызывать будет (Sender), на его ItemIndex все остальные и будут становиться

[crazyman]

Спс отлично)))

[icWasya]

только лучше так

Код:

procedure TForm1.ComboBox_Change(Sender: TObject);
var m:integer;
begin
for m:=0 to ComponentCount-1  do
begin
  if Components[m] = Sender then 
    continue;// защита от рекурсии
  if (Components[m] is TComboBox) then
     (Components[m] as TComboBox).ItemIndex:=(Sender as TComboBox).ItemIndex;
end;

[crazyman]

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

только лучше так

Код:

procedure TForm1.ComboBox_Change(Sender: TObject);
var m:integer;
begin
for m:=0 to ComponentCount-1  do
begin
  if Components[m] = Sender then 
    continue;// защита от рекурсии
  if (Components[m] is TComboBox) then
     (Components[m] as TComboBox).ItemIndex:=(Sender as TComboBox).ItemIndex;
end;

так и сделал, только процедуру по-другому назвал))