Como saber se um form j� foi criado?

Question

Eu gostaria de saber se tem como saber se um form j� foi criado?

trabalho da seguinte forma:

Form := TForm.Create(self)

tem como saber se essa linha j� foi executada, ou melhor se o form j� foi criado?

Vispo · Answer

Colega:[code:1:337ee9618c]if Form <> NIL thenbegin  Showmessage(�O Form j� foi criado!�);end;[/code:1:337ee9618c]...

Abadia · Answer

Existem v�rias formas de saber isto... umas mais seguras outras nem tanto.

Se vc tem pleno controle da vari�vel que aponta para o TForm vc pode verificar se ela � nil, porem vc tem que certificar-se que ao destruir o formul�rio coloque nil na vari�vel.

Outro modo � verificar se a vari�vel encontra-se na lista de formul�rios mantida por Screen. Isto pode ser feito da seguinte forma:
var
I: Integer;
FormCreated: Boolean;
begin
FormCreated := False;
for I := 0 to Screen.CustomFormCount -1 do
if Screen.CustomForms[I] = Form then
begin
FormCreated := True;
Break;
end;
end;

Onde Form � o nome da vari�vel de seu formul�rio e FormCreated o resultado de sua procura.

Eniorm · Answer

[quote:a5d8e8273d=�vispo�]Colega:[code:1:a5d8e8273d]if Form <> NIL thenbegin Showmessage(�O Form j� foi criado!�);end;[/code:1:a5d8e8273d][/quote:a5d8e8273d]isso s� funciona se vc fazer assim na hora de liberar o form da memoria[code:1:a5d8e8273d]form.Release;form := Nil;// ouform.Release;FreeAndNil(form)[/code:1:a5d8e8273d]do contrario n�o ser� v�lido o if form <> nil...

Rodc · Answer

E com assign, funciona mesmo n�o colocando nil ao excluir? Nunca testei![code:1:229d8c0ad6]if Assigned(Form1) then begin   Showmessage(�O Form j� foi criado!�); end;[/code:1:229d8c0ad6]...

F�rum Como saber se um form j� foi criado? #349459