|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
КомбоБокс.ИтемИндекс
Добрый день! Подскажите плиз.
Есть несколько комбобоксов. Хотелось бы сделать, чтобы при выборе одной строки любого комбобокса, выбрались соответствующие по итеминдексу строки оставшихся комбобоксов. Мой пример для выбора только по одному комбобоксу Код:
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; |
#2
|
|||
|
|||
Может не правильно понял ТЗ, вот так не пойдёт?
Код:
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; |
#3
|
||||
|
||||
Одно событие на все комбобоксы
Код:
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; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
crazyman (01.07.2017)
|
#4
|
|||
|
|||
Цитата:
т.е. процедура ончендж на все комбобоксы Последний раз редактировалось crazyman, 01.07.2017 в 13:26. |
#5
|
|||
|
|||
Цитата:
нужна одна общая процедура на все комбобоксы |
#6
|
||||
|
||||
Цитата:
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
crazyman (01.07.2017)
|
#7
|
|||
|
|||
Спс отлично)))
|
#8
|
|||
|
|||
только лучше так
Код:
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; |
Этот пользователь сказал Спасибо icWasya за это полезное сообщение: | ||
crazyman (03.07.2017)
|
#9
|
|||
|
|||
Цитата:
|