Delphi: Czy jest w porządku, aby formularz mógł go uwolnić?

Question

Mam formularz, którego używam do pokazywania pewnych informacji przez kilka sekund. Czy to jest w porządku, aby formularz sam się uwolnił? Czy mogę uruchomić zegar w konstruktorze, a następnie wywołać self.free w zdarzeniu timera? Czy może to potencjalnie prowadzić do kłopotów?

Answer 1

Ponadto za pomocą formularza można zadzwonić do wydania.

Wysyła komunikat CM_RELEASE do formularza. Jako reakcję nazywa Wolny. Zaletą wydania jest to, że nie ma żadnych wiadomości dla formularza, które mogłyby spowodować awarię.

Answer 2

Mam cały pakiet obiektów, które się wyzwalają, a ja przeprowadziłem na nich różne testy bez żadnych problemów/wycieków. TForm może być bardziej złożony, ale tak długo jak Self.Free() jest ostatnim wywołaniem, powinieneś być bezpieczny.

(Dla tych, którzy zastanawiają się, dlaczego na Ziemi mam obiekt, który się wyzwolił, bardzo często przekazuję je dookoła systemu, więc zaimplementowałem je według własnego schematu liczenia odniesień, a gdy ostatnie odniesienie zostanie zwolnione, obiekt uwalnia się).

Answer 3

Można zrobić formę uwolnić się gdy robi się zamknięte przez użytkownika lub z kodu:

procedure TForm27.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
    Action := caFree; 
end; 

procedure TForm27.FormCreate(Sender: TObject); 
begin 
    Timer1.Enabled := True; 
end; 

procedure TForm27.Timer1Timer(Sender: TObject); 
begin 
    Timer1.Enabled := False; 
    Close; 
end; 

upewnij się, podać właściciela w konstruktorze okrywać z postojów aplikacyjnych i forma nie jest zniszczone w czas. Właściciel zwolni formularz przed uwolnieniem się.

Answer 4

Dokładnie to robi się za pomocą interfejsów.