Открыто ли окно?

← →
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 модуля.

Screen.Forms ?

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