|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
KeyPress и клавиши со стрелками
Помогите кто может
Ситуация следующая: на форме ListBox и Edit, в онклик листбокса эдит получает фокус, в кейпресс эдита происходят манипуляции с листбоксом. Все работает. Код:
procedure TForm1.ListBox1Click(Sender: TObject); ... Edit1.SetFocus; ... end; Код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin case Key of #13 : begin ... //редакирование ListBox1.Items end; ..... '0'..'9', '-', '*', '?', #8: Key:= Key; else Key:=#0; end; end; Код:
#38 : //стрелка вверх begin ListBox1.ItemIndex:= ListBox1.ItemIndex-1; ListBox1Click(Self); end; Код:
'q' : //просто, для примера begin ListBox1.ItemIndex:= ListBox1.ItemIndex-1; ListBox1Click(Self); end; Не помогли следующие варианты Код:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Char); begin case Key of VK_UP : begin ... Код:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin case Key of #38 : begin ... то ли на Код:
'T','t', 'Е', 'е': begin .... Код:
'F','f', 'А', 'а': begin .... |
#2
|
||||
|
||||
Юзаем KeyPreview := true. С данной опцией должен работать и KeyPress, и (что более правильно) KeyDown/KeyUp.
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
Этот пользователь сказал Спасибо PhoeniX за это полезное сообщение: | ||
Помидоркин (20.10.2013)
|
#3
|
||||
|
||||
Цитата:
|
#4
|
||||
|
||||
Погуглить не судьба было?
http://www.helloworld.ru/texts/comp/...htm#KeyPreview — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#5
|
||||
|
||||
Цитата:
Не стоит путать форумы с богадельнями. © Bargest |
Этот пользователь сказал Спасибо Freeman за это полезное сообщение: | ||
Помидоркин (20.10.2013)
|
#6
|
||||
|
||||
Цитата:
|
#7
|
||||
|
||||
Цитата:
http://hotwebpro.narod.ru/info/progr..._infa/kod.html |
#8
|
||||
|
||||
Цитата:
Не стоит путать форумы с богадельнями. © Bargest |
#9
|
||||
|
||||
Цитата:
Цитата:
|
#10
|
||||
|
||||
"Истинный" KeyPreview у формы подразумевает что она первая обрабатывает события, до контролов, со всеми вытекающими
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
Помидоркин (23.10.2013)
|