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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 02.09.2009, 14:17   #1
pskovn
Новичок
Джуниор
 
Регистрация: 01.09.2009
Сообщений: 3
По умолчанию Открыть Combobox по Enter

Всем доброго дня!!!
У меня вопрос - как заставить открываться Combobox для выбора элемента по нажатию Enter? Стандартная клавиша для открытия комбобокса Alt+стрелочка вниз. А мне нужно тоже самое, но по Enter.
pskovn вне форума Ответить с цитированием
Старый 02.09.2009, 14:20   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

Код:
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key=#13 then begin Key:=#0;ComboBox1.DroppedDown:=true;end
end;
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 02.09.2009, 14:38   #3
pskovn
Новичок
Джуниор
 
Регистрация: 01.09.2009
Сообщений: 3
По умолчанию

Спасибо огромное!!!
А зачем вот эта строчка Key:=#0; ?
pskovn вне форума Ответить с цитированием
Старый 02.09.2009, 14:46   #4
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

иначе будет срабатывать не только открытые бокса но и как обычное нажатие Энтера...
попробуйте киньте на форму бокс и нажмите в нем Энтер(короче без обнуления Key) то поймете о чем я
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 02.09.2009, 14:48   #5
pskovn
Новичок
Джуниор
 
Регистрация: 01.09.2009
Сообщений: 3
По умолчанию

Еще раз спасибо
pskovn вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
По нажатию Enter Cpluser Общие вопросы .NET 4 30.04.2009 10:28
Enter PAVEL315 Помощь студентам 7 17.12.2007 20:41
Не могу внести строку из combobox в combobox!? tacer Помощь студентам 1 30.11.2007 19:45
Ctrl+Enter kisska Win Api 3 22.08.2007 20:55
Enter Slash Общие вопросы Delphi 2 24.03.2007 17:40