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

[Sir Rufo]

Nur so am Rande bemerkt:

Mit ARC reicht ein simples Free oder FreeAndNil bei einer Komponente nicht mehr aus. Da muss man schon mit TObject.DisposeOf ran.

Um die Instanz-Variable für die Komponente auf nil zu setzen überschreibt man TComponent.Notification und reagiert dort auf opRemove .

Die Notification wird für alle Komponenten automatisch aufgerufen, wo man Owner oder Parent ist. Alle anderen Komponenten müssen mit TComponent.FreeNotification registrieren um auch diese Benachrichtigung zu erhalten.

[nahpets]

Zitat von himitsu:

Warum FindComponent, wenn man f hat?

Zitat von Du:

if Assigned(f) then f.Free;

Schau mal was TObject.Free macht.

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