Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.15;
Скачать: CL | DM;

Вниз

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

 
V.Turecky   (2002-08-03 15:31) [0]

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

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


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


 
anatol ©   (2002-08-03 15:36) [1]

Nujno postavit" KeyPreview = True;


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

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


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

2 -=Prior=-

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


 
TTCustomDelphiMaster ©   (2002-08-03 20:01) [4]

Какие фокусы-покусы?
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 20:03) [5]

Спасибо.

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


 
TTCustomDelphiMaster ©   (2002-08-03 21:20) [6]

V.Turecky (03.08.02 20:03)

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



Страницы: 1 вся ветка

Текущий архив: 2002.08.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
1-48119
Брат
2002-08-05 16:59
2002.08.15
Копирование файла


1-48186
nester
2002-07-31 06:05
2002.08.15
Как получить картинку со странички в TWebBrowser.


4-48375
stainer
2002-06-12 16:09
2002.08.15
wallpaper


14-48317
goliaph
2002-07-22 19:52
2002.08.15
Кто знает где можна найти список функций API с коротким описанием


1-48175
Ivan Karikh
2002-07-31 14:56
2002.08.15
Events, procedures, dll