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