compruebe si el objeto se crea o no en delphi

Question

Estoy compilando una aplicación usando Delphi 7. He agregado un botón en el formulario principal. En ese botón, haga clic en Deseo mostrar otro formulario. Intento crear una segunda forma solo si el usuario ha hecho clic en ese botón por primera vez. Si el usuario hace clic en ese botón por segunda vez, se debe mostrar el formulario ya creado. ¿Tiene un objeto Formulario alguna propiedad a través de la cual podamos verificar directamente si ya está creado o no?

Answer 1

if Assigned(Form1) then 
begin 
    //form is created 
end; 

Pero si su forma es declarado localmente a nivel mundial debe asegurarse de que se inicializa a nil.

Answer 2

Necesita un campo de miembro para mantener la referencia al formulario. Luego verifique si esa referencia está asignada. De esta manera:

function TMainForm.GetOtherForm: TMyForm; 
begin 
    if not Assigned(FOtherForm) then 
    FOtherForm := TMyForm.Create(Self); 
    Result := FOtherForm; 
end; 

Answer 3

Asignada (Obj) aún puede devolver True incluso después de liberarla, usando "Obj.free". La mejor manera de asegurar su obj es gratis, PARA USAR Asignado (obj) está usando "FreeAndNil (Obj)"

Answer 4

Algunas veces la forma ha sido gratuita pero no es nula. En tal caso, la verificación de Asignado no es tan buena. Así que una opción es liberar el formulario y establecer MyForm: = nil en el formulario OnClose. otra opción es utilizar la siguiente proc:

function TMyForm.IsFormCreated: bool; 
var i: Integer; 
begin 
    Result := False; 
    for i := 0 to Screen.FormCount - 1 do 
    begin 
    if Screen.Forms[i] is TMyForm then 
    begin 
     Result := True; 
     Break; 
    end; 
    end; 
end;