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

Вниз

Клавиша Esc   Найти похожие ветки 

 
NovyChock   (2003-01-05 18:53) [0]

Уважаемые, Знатоки!
Нужно использовать клавишу Esc
для закрытия окна. Подскажите
как описать такое событие.
Просьба администратору форума
не удалять этот вопрос.
Спасибо!


 
Skier ©   (2003-01-05 18:58) [1]

>NovyChock

1) TYourForm.KeyPreview := True;

2)
//....................
TYourForm= class(...)
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private

//...................

procedure TYourForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_ESCAPE then Close;
end;


 
NovyChock   (2003-01-05 21:04) [2]

Очень Вам благодарен,Skier!



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

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

Наверх




Память: 0.46 MB
Время: 0.033 c
4-49342
^Sanya
2002-11-28 21:14
2003.01.16
?


1-48974
Thender
2003-01-06 01:11
2003.01.16
Какой тип данных ?


1-48983
Kromag
2003-01-06 18:56
2003.01.16
Генерация


1-49106
fifo
2003-01-05 10:39
2003.01.16
транспонированный запрос


4-49356
Hanson3003
2002-11-29 09:50
2003.01.16
Неужели в Windows 2000/XP не выключить питание?