Цитата:
Сообщение от 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;
|
не так я и сам могу)))
нужна одна общая процедура на все комбобоксы