Sprawdź, czy obiekt został utworzony czy nie w delphi

Question

Buduję aplikację przy użyciu Delphi 7. Dodałem jeden przycisk w głównym formularzu. W tym przycisku kliknij Chcę pokazać inny formularz. Próbuję utworzyć drugi formularz tylko wtedy, gdy użytkownik kliknął ten przycisk po raz pierwszy. Jeśli użytkownik kliknie ten przycisk po raz drugi, powinien zostać wyświetlony już utworzony formularz. Czy obiekt Form ma jakąś właściwość, dzięki której możemy bezpośrednio sprawdzić, czy obiekt został już utworzony, czy nie?

Answer 1

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

Ale jeśli forma jest zadeklarowana lokalnie globalnie należy upewnić się, że jest on inicjowany nil.

Answer 2

Potrzebujesz pola elementu, aby zachować odniesienie do formularza. Następnie sprawdź, czy odniesienie zostało przypisane. Tak:

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

Answer 3

Assigned (obj) może jeszcze powrócić prawda nawet po uwolnić go, używając "Obj.free". Najlepszy sposób na osiągnięcie celu jest bezpłatny, ZA UŻYCIE Assigned (obj) używa "FreeAndNil (Obj)"

Answer 4

Czasami forma jest darmowa, ale nie jest zerowa. W takim przypadku sprawdzenie Assigned nie jest tak dobre. Jedną z opcji jest uwolnienie formularza i ustawienie MyForm: = zero w formularzu OnClose. Inną opcją jest użycie następującego 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;