Saber se o Form está Aberto

Delphi

19/03/2003

Como faço pra saber se o Form já foi criado e está em exibição?

São Forms MDIChild e estou criando através de um MDIForm com o seguinte código

Application.CreateForm(TFormNovo, FormNovo);

Como faço para impedir que seja criado novamente esse form?


Okama

Okama

Curtidas 0

Melhor post

Belo

Belo

19/03/2003

Como faço pra saber se o Form já foi criado e está em exibição? São Forms MDIChild e estou criando através de um MDIForm com o seguinte código Application.CreateForm(TFormNovo, FormNovo); Como faço para impedir que seja criado novamente esse form?


function VerForm(Formulario: String): Bool;
var
i: integer;
begin
Result := False;
for i:= 0 to Screen.FormCount-1 do
if Screen.Forms[i].Name := Formulario then
Result := True;
end;


GOSTEI 1

Mais Respostas

Okama

Okama

19/03/2003

Valeu pela dica!


GOSTEI 0
Dor_poa

Dor_poa

19/03/2003

If NOMEDOFORM = nil then
Showmessage(´Aberto´);


GOSTEI 0
POSTAR