| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как организовать выход по Esc?

V.Turecky ©   (2002-08-03 15:31:00) 

Добрый день. Хочу чтобы по нажатию на кнопку Esc форма пряталась. Пытался сделать так:

procedure TfrmChange.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#27 Then FrmChange.Hide;
end;

Не работает. Что я делаю неправильно?

---

TTCustomDelphiMaster   (2002-08-03 21:20:00) [1]

V.Turecky (03.08.02 20:03)

Во первых это разные типы. VK_ESCAPE=27 имеет тип word (или byte или integer), а #27 тип Char. Во вторых, чтобы долго не чесать репу вспоминая какая клавиша имеет код 27 в модуле windows.pas прописаны специальные константы.

---

V.Turecky   (2002-08-03 20:03:00) [2]

Спасибо.

А чем VK_ESCAPEотличаеться от #27?

---

TTCustomDelphiMaster   (2002-08-03 20:01:00) [3]

Какие фокусы-покусы?
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_ESCAPE Then Hide;
end;

+ anatol © (03.08.02 15:36)

---

V.Turecky   (2002-08-03 18:56:00) [4]

2 -=Prior=-

Как обойти фокус?

---

-=Prior=-   (2002-08-03 18:51:00) [5]

У тебя наверное на форме расположены еще другие объекты, плэтому фокус находится не на форме, а на кнопке например!

---

anatol   (2002-08-03 15:36:00) [6]

Nujno postavit" KeyPreview = True;

---

Наверх