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

Вниз

закрытие формы по ESC   Найти похожие ветки 

← →
denis24   (2005-01-19 13:57) [0]

Как сделать сабж?

---

← →
Warlock ©   (2005-01-19 14:03) [1]

Свойство формы KeyPreview установить в True

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

---

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

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

Наверх

Память: 0.46 MB
Время: 0.023 c