controllare se l'oggetto è stato creato o non in delphi

Question

Sto costruendo un'applicazione utilizzando Delphi 7. Ho aggiunto un pulsante nel modulo principale. Su quel pulsante clic voglio mostrare un altro modulo. Sto cercando di creare un secondo modulo solo se l'utente ha fatto clic su quel pulsante per la prima volta. Se l'utente fa clic su questo pulsante una seconda volta, dovrebbe essere visualizzato il modulo già creato. Un oggetto Form ha proprietà attraverso le quali possiamo controllare direttamente se è già stato creato o no?

Answer 1

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

Ma se il modulo è dichiarato localmente globalmente è necessario assicurarsi che sia inizializzato a nil.

Answer 2

È necessario un campo membro per contenere il riferimento al modulo. Quindi verificare se tale riferimento è stato assegnato. In questo modo:

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

Answer 3

Assegnato (Obj) può ancora restituire True anche dopo averlo liberato, utilizzando "Obj.free". Il modo migliore per assicurare il tuo obj è gratuito, PER UTILIZZARE Assigned (obj) utilizza "FreeAndNil (Obj)"

Answer 4

A volte la forma è stata gratuita ma non è nulla. In tal caso il controllo di Assegnato non è così buono. Quindi un'opzione è per liberare il modulo e impostare MyForm: = nil sul modulo OnClose. un'altra opzione è quella di utilizzare il seguente 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;