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

Вниз

Как сделать, чтоб форма закывалась при нажатии на Esc?   Найти похожие ветки 

← →
daser   (2006-10-31 21:51) [0]

---

← →
@!!ex ©   (2006-10-31 21:54) [1]


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


---

← →
daser   (2006-10-31 21:58) [2]

>@!!ex ©   (31.10.06 21:54) [1]
почему-то такое не работает...

---

← →
Ketmar ©   (2006-10-31 22:01) [3]

>[2] daser 31-Oct-2006, 21:58
>почему-то такое не работает...
ошибка в DNA?

---

← →
Gero ©   (2006-10-31 22:07) [4]

> [2] daser   (31.10.06 21:58)

Form1.KeyPreview := True;

---

← →
daser   (2006-10-31 22:15) [5]

>@!!ex ©   (31.10.06 21:54) [1]
                  +
>Gero ©   (31.10.06 22:07) [4]
                  =
  отличный результат. Спасибо!

---

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

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

Наверх

Память: 0.47 MB
Время: 0.212 c