|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.07.2016, 09:49 | #1 |
Новичок
Джуниор
Регистрация: 30.07.2016
Сообщений: 1
|
Проблема AdvComboBox
Есть проблема: организовал клавиатурное перемещение выбора в выпадающем списке ComboBox-а. При нажатии клавиш Down/Up - ItemIndex изменяется, а принажатии клавиши Enter и дальнейшей сменой фокуса - остается последний выбор, какой был до этого.
Что может быть причиной? Фрагмент программы: procedure TForm12.AdvComboBox2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin If ModoLavoro=DInsert then begin If Key=VK_ESCAPE then begin PlannerDatePicker1.SetFocus; PlannerDatePicker1.Date:=0; PlannerDatePicker1.DropDown; end; If Key=VK_RETURN then begin AdvComboBox2.Text:=AdvComboBox2.Ite ms.Strings[AdvComboBox2.ItemIndex]; AdvComboBox3.Enabled:=True; AdvComboBox3.SetFocus; AdvComboBox3.DroppedDown:=True; AdvComboBox3.ItemIndex:=0; end; If Key=VK_DOWN then begin If AdvComboBox2.ItemIndex<AdvComboBox2 .Items.Count-1 then AdvComboBox2.ItemIndex:=AdvComboBox 2.ItemIndex+1 else AdvComboBox2.ItemIndex:=0; end; If Key=VK_UP then begin If AdvComboBox2.ItemIndex>0 then AdvComboBox2.ItemIndex:=AdvComboBox 2.ItemIndex-1 else AdvComboBox2.ItemIndex:=AdvComboBox 2.Items.Count-1; end; end; Key:=0; end; Последний раз редактировалось Georg51; 30.07.2016 в 14:51. Причина: уточнение |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Неблокирующий сокет Си проблема с закрытием, проблема с закрытием сокетов в цикле | mnx_vol | C/C++ Сетевое программирование | 0 | 06.11.2012 13:57 |
Проблема с рамами/Проблема с ЖД | DRAGGER | Компьютерное железо | 6 | 04.01.2009 23:37 |