Закрытие модальной формы

← →
NQ34 (2005-05-31 01:01) [0]

Я в Form1 даю команду покать Form2 модальной, но вот на форме 2 у меня есть кнопочка закрыть, которая должна по идее закрывать Form2 и переходить к Form1, но вот как это сделать я уже всё препробовал!!!
Если кто знает напишите код.
...
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then begin
Form2 := TForm2.Create(Application);
Form2.ShowModal;
Form2.Free;
end;
end;

← →
Marser © (2005-05-31 01:07) [1]

> на форме 2 у меня есть кнопочка закрыть, которая
> должна по идее закрывать Form2 и переходить к Form1,
> но вот как это сделать я уже всё препробовал!!!

TButton.ModalResult

← →
Anatoly Podgoretsky © (2005-05-31 09:03) [2]

Кнопку надо нажать.

TButton.ModalResult

Или
procedure TForm1.ButtonClick(Sender : TObject); begin ModalResult:=mrCancel; end;

Закрытие модальной формы Найти похожие ветки