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

Открыто ли окно?   Найти похожие ветки 

← →
MakNik ©   (2004-02-09 10:34) [0]

Есть Форма, которая создается динамически... нужно ее создать заново... Подскажите, плз., как определить, была ли форма закрыта и как ее корректно закрыть?

---

← →
alex_*** ©   (2004-02-09 11:34) [1]

проверить Visible?

---

← →
Sandman25 ©   (2004-02-09 11:44) [2]

var
MyForm: TMyForm;

procedure ShowForm;
begin
if MyForm = nil then
MyForm := TMyForm.Create(Application);
MyForm.Show;
end;

procedure FreeForm;
begin
FreeAndNil(MyForm);
end;

FreeForm можно не вызывать, тогда форма удалится при выходе из программы.
Либо, если форма создается с Owner=nil, можно вставить вызов FreeForm в finalization модуля.

---

← →
HSolo ©   (2004-02-09 14:22) [3]

Screen.Forms ?

---

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

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



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