Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.07.2016, 09:49   #1
Georg51
Новичок
Джуниор
 
Регистрация: 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. Причина: уточнение
Georg51 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Неблокирующий сокет Си проблема с закрытием, проблема с закрытием сокетов в цикле mnx_vol C/C++ Сетевое программирование 0 06.11.2012 13:57
Проблема с рамами/Проблема с ЖД DRAGGER Компьютерное железо 6 04.01.2009 23:37