Form zur Laufzeit erzeugen und mit assigned prüfen ob vorhanden

[Sir Rufo]

Nur so am Rande bemerkt:

Mit ARC reicht ein simples

Delphi-Quellcode:

Free

oder

Delphi-Quellcode:

FreeAndNil

bei einer Komponente nicht mehr aus. Da muss man schon mit TObject.DisposeOf ran.

Um die Instanz-Variable für die Komponente auf

Delphi-Quellcode:

nil

zu setzen überschreibt man TComponent.Notification und reagiert dort auf

Delphi-Quellcode:

opRemove

.

Die Notification wird für alle Komponenten automatisch aufgerufen, wo man

Delphi-Quellcode:

Owner

oder

Delphi-Quellcode:

Parent

ist. Alle anderen Komponenten müssen mit TComponent.FreeNotification registrieren um auch diese Benachrichtigung zu erhalten.

[nahpets]

Zitat:

Zitat von himitsu (Beitrag 1327050)

Warum FindComponent, wenn man

Delphi-Quellcode:

f

hat?

Zitat:

Zitat von Du

Delphi-Quellcode:

if Assigned(f) then f.Free;

Schau mal was TObject.Free macht. :-D

Zitat:

Zitat von Delphi

Delphi-Quellcode:

procedure TObject.Free;
begin
  if Self <> nil then  // if Assigned(Self) then
    Destroy;
end;

FindComponent zum Ersten, um zu zeigen, dass es funktioniert und zum Zweiten, weil es eventuell dann hier

Delphi-Quellcode:

if not assigned(Application.FindComponent(formListe[n]) as TForm) then
begin
  continue;
end;

funktioniert, ohne zu wissen, wie die weitere Programmlogik des Threaderstellers aussieht.

Und ja, es heißt natürlich f.Destroy :oops: