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)

;-)

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