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

TForm -close   Найти похожие ветки 

← →
aser   (2003-12-18 18:03) [0]

Из главного окна программы я создаю еще одно окно как

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
h:TForm3;
begin
h:=TForm3.Create(self);
try
h.ShowModal;
finally
h.Free;
end;
end;

Вопрос: как закрыть это созданное окно нажатием клавиши Esc ?

---

← →
Serge   (2003-12-18 18:06) [1]

Во второй форме обрабатываешь событие OnKeyPress ili OnKeyDown нанажатие Esc - там и закрываешь окошко

---

← →
Sandman25 ©   (2003-12-18 18:07) [2]

Сделать кнопку, присвоить у нее Caption = "Отмена", Cancel = True и ModalResult = mrCancel

---

← →
имя   (2003-12-18 18:10) [3]

Удалено модератором

---

← →
Sandman25 ©   (2003-12-18 18:11) [4]

ModalResult := mrCancel.

---

← →
aser   (2003-12-18 18:16) [5]

Ну мне вообще то кнопка там на форме не нужна...

---

← →
Sandman25 ©   (2003-12-18 18:17) [6]

procedure TForm3.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = VK_ESCAPE then
ModalResult := mrCancel;
end;

---

← →
Sandman25 ©   (2003-12-18 18:18) [7]

>Ну мне вообще то кнопка там на форме не нужна...

Кстати, меня всегда удивляли программы, в которых для закрытия окна мышкой надо было быть ворошиловским стрелком, попадая в малюсенький крестик...

---

← →
Serge   (2003-12-18 18:21) [8]

>Sandman25
Зато какая тренировка ... Quake, UNREAL, ITD :o)

---

← →
Sandman25 ©   (2003-12-18 18:22) [9]

[8] Serge (18.12.03 18:21)

Я только в походовые играю, мне такая тренировка не нужна :)

---

← →
Serge   (2003-12-18 18:23) [10]

:)

---

← →
aser   (2003-12-18 18:24) [11]

Ok. Спасибо ! Только оказалось

chr(VK_ESCAPE)

;-)

---

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

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



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