Скачать: CL | DM;

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

← →
vodvorezlaya ©   (2006-09-29 10:22) [0]

Доброго времени суток.

procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (key=#27) then form1.Close;
end;

не работает когда на форме есть другие компоненты.

Как правильно сделать.

Спасибо.

---

← →
Elen ©   (2006-09-29 10:24) [1]

Выставь form1.keyPreview:=true

---

← →
ASoft   (2006-09-29 10:26) [2]

кажется, TForm2. - не главная форма, главная по всей видимости form1, что не есть гуд.... иначе..
эм, обработчик надо не FormKeyPress(), а FormKeyDown()..."key=27"

---

← →
Elen ©   (2006-09-29 10:28) [3]

> ASoft

+ к этому Тогда Application.terminate чтоб наверняка

---

← →
MsGuns ©   (2006-09-29 14:00) [4]

Блин, советчики..
Чего вы фигню полную советуете ? Клавиша Esc может быть многократно заюзана приложением в разных контекстах, т.к. интуитивно "близка" пользователям.

Проблема с закрытием формы по нажатию Esc решается примитивным образом - через Action, в обработчике которого стоит проверка возможности закрытия формы (а тем более приложения) и, если можно, то Close главной формы.

И еще. Давать Application.Terminate из неглавной формы - такая же хреновая манера, как пИсать с балкона - типа пофиг кто там внизу.

---

← →
Elen ©   (2006-09-29 14:04) [5]

> Блин, советчики..

Добро пожаловать в клуб любителей посоветовать ... :D

---

← →
ASoft   (2006-09-29 18:39) [6]

Чего вы фигню полную советуете [4]
зачем ж так опрометчиво :)  чел спросил как закрыть форму эскейпом и где видно, что в [0]Esc может быть многократно заюзана приложением в разных контекстах,
а говоря кажется, TForm2. - не главная форма, главная по всей видимости form1, что не есть гуд.
я имел в виду, нечто подобное этому: Давать Application.Terminate из неглавной формы - такая же хреновая манера, как

---

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

Скачать: CL | DM;



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