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

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

← →
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]

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

---

← →
Ega23 ©   (2005-05-31 09:42) [3]

TButton.ModalResult

Или

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


---

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

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



Память: 0.45 MB
Время: 0.037 c