Zugriffverletzung beim Schliessen eines Formulars

[RaSoWa1]

Hallo,
ich könnte mal wieder eure Hilfe gebrauchen.

Folgender Code wird nach dem Öffnen eines Child-Formulars aufgerufen:

Delphi-Quellcode:

procedure TFmAlbum.LoadAlbum(fn: string);
begin
  if Alb <> nil
  then Alb.Free;
  Alb := TAlbum.Create(Self);           // Alb ist public in FmAlbum vereinbart.
  Alb.LoadFromFile(fn);
end;

LoadFromFile lädt u. a. Bilder und zeigt sie auf dem Formular in zur Laufzeit erzeugten TImage-Komponeneten an.
Das Formular wird mit folgendem Code geschlossen:

Delphi-Quellcode:

procedure TFmAlbum.FormDestroy(Sender: TObject);
begin
  if Alb <> nil
  then Alb.Free;
end;

Nun das Problem:
Die Prozedur LoadFromFile braucht ein paar Sekunden bis alles geladen, berechnet und angezeigt ist. Wenn in dieser Zeit das Formular mit dem BorderIcon biSystemMenu geschlossen wird, wird Alb im FormDestroy freigegeben, obwohl LoadFromFile noch läuft. Dies führt logischerweise zu Zugriffverletzungen.

Ich könnte diese Zugriffverletzungen mit try ... except abfangen. Das ist aber bestimmt nicht der richtige Weg.
Wie kann ich das Formular ohne Fehler schließen?

Schon mal Danke für die Hilfe.

Gruß Klaus.

[quendolineDD]

Du könntest das ganze in einen Thread packen und dann dem Programm Zeit geben, die Sachen fertig zu laden ...

[dataspider]

Hi,

der Fehler

Delphi-Quellcode:

Alb := TAlbum.Create(Self);

Alb bekommt als Owner Self (dein Formular).

Somit wird das Form Alb zerstören.

Du versuchst das auch noch:

Delphi-Quellcode:

if Alb <> nil 
  then Alb.Free;

Ist das Formular schneller, dann knallts.

Davon abgesehen ist das mit der Public variablen ...na ja...

Cu, Frank

[EDIT]
Also, das laden hat im Create nichts zu suchen.
Ich nutze immer Application.onIdle, aber man kann auch im Form.OnShow (mit Variablen, um ein 2. Laden zu verhindern) oder wie auch immer das Bild laden.
Warum hast du überhaupt die Variable und die Prüfung auf nil (obwohl du beim Zerstören Alb nicht nil setzt)?

[RaSoWa1]

@dataspider

Hallo Frank,
Danke für deine Antwort.

Zitat:

Alb bekommt als Owner Self (dein Formular).

Somit wird das Form Alb zerstören.

Du hast Recht, das werde das morgen mal testen. Hier in der Firma, wo ich z.Z. meine Brötchen verdiene, habe ich leider kein Delphi.

Zitat:

Also, das laden hat im Create nichts zu suchen.

Dort ist es auch nicht. Geladen wird erst, wenn das Child-Form fertig ist fertig und der Dateiname ermittelt wurde.

Zitat:

Warum hast du überhaupt die Variable und die Prüfung auf nil (obwohl du beim Zerstören Alb nicht nil setzt)?

Für den Fall, das Alb nicht erzeugt wurde, weil die Datei (fn) nicht existierte.

Gruß Klaus.

@quendolineDD
Hallo,

Zitat:

Du könntest das ganze in einen Thread packen und dann dem Programm Zeit geben, die Sachen fertig zu laden ...

Daran hatte ich auch schon mal kurz gedacht. Aber der Nutzer muss ehe warten bis alles geladen ist. Deshalb habe ich die Thread-Variante nicht gewählt.

Danke für deine Antwort.
Gruß Klaus