|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.08.2010, 23:12 | #1 |
Регистрация: 23.08.2010
Сообщений: 5
|
Закрытие окна при нажатии опр. клавиши на клавиатуре.
Здравствуйте!
Меня зовут Владимир. Я создал форму, которую хочу закрыть при нажатии клавиши "Esc" - это 27 клавиша на клавиатуре. В итоге: "procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if key=#27 then form1.Close; end;" - НЕ ЗАКРЫВАЕТ. Попробовал такую же систему с ListBox: "procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char); begin if key=#27 then form1.Close; end;" - ПОЛУЧИЛОСЬ. Но для того чтобы код среагировал, мне нужно дать фокус ЛистБоксу, а я хотел чтобы он сразу закрывался без дачи кому-либо фокуса. Может кто-нибудь подсказать как так сделать???? Заранее благодарен. Последний раз редактировалось Borgond; 24.08.2010 в 09:26. |
23.08.2010, 23:13 | #2 |
Погулять вышел
Участник клуба
Регистрация: 17.05.2010
Сообщений: 1,573
|
Ну выбери, к примеру, procedure TForm1.ListBox1KeyPress и в обработчике FormKeyPress
Никогда не знаешь, где тебе повезет... (Фрай)
|
23.08.2010, 23:26 | #3 | |
Форумчанин
Регистрация: 28.03.2008
Сообщений: 940
|
Цитата:
|
|
23.08.2010, 23:34 | #4 |
Software Developer
Старожил
Регистрация: 19.12.2008
Сообщений: 2,070
|
Странно, все работает..ну можете еще попробовать вот так:
Код:
Будь проще и люди к тебе потянутся
|
24.08.2010, 09:34 | #5 | |||||
Регистрация: 23.08.2010
Сообщений: 5
|
Спасибо за ответы.
Цитата:
Цитата:
Цитата:
Цитата:
|
|||||
24.08.2010, 10:04 | #6 |
Тот ещё
Старожил
Регистрация: 14.11.2007
Сообщений: 2,242
|
Код:
|
25.08.2010, 01:14 | #7 | |
Регистрация: 23.08.2010
Сообщений: 5
|
Уряяяя! :)
Цитата:
Я как раз думал, "может он просто не видит моего кода, ну т.е. нет возможности его выполнить, запрещено например?!". Ещё раз спасибо тебе!!! |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
завершение цикла при нажатии клавиши | LLIyPI/IK | Общие вопросы C/C++ | 8 | 12.02.2010 13:29 |
Обновление заданной области экрана при нажатии клавиши | Jack Torrance | Win Api | 3 | 26.05.2008 10:57 |
Событие при нажатии клавиши Enter | Inbox | Общие вопросы Delphi | 4 | 12.06.2007 14:18 |