Modales Wartefenster, im Hintergrund läuft Thread

**mastaofdesasta**

Hallo,

ich hab ein Programm geschrieben, in dem man mehrere Dateien und Ordner auslesen und verarbeiten kann. Da die Verarbeitung ziemlich lange dauert, benötige ich ein modales Fenster, das den Wartezustand anzeigt, während im Hintergrund die Daten verarbeitet werden. Ausserdem soll es einen Abbruchbutton haben, mit dem die Aktion unterbrochen werden kann.

Bis jetzt habe ich das mit einem Thread so gelöst:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure UserKlicktWas;

  ImportFiles:=TImportFilesThread.Create(False);

  ImportFiles.FreeOnTerminate:=True;

  ImportFiles.OnTerminate:=ImportFilesTerminate;

  if Wartefenster.ShowModal = mrCancel then

  begin

    ImportFiles.Terminate;

  end;

procedure ImportFilesTerminate;

// das fenster wurde durch einen Klick auf Abbrechen geschlossen

  if not WarteFenster.Showing then

    MachDieVerarbeitungRückgängig

// das WarteFenster wurde noch nicht vom User geschlossen

  else

    WarteFenster.Close;

    JetztBeendeDieVerarbeitung

Das haut so auch meistens gut hin, nur manchmal bleibt das Fenster geöffnet. Ich glaube, dass der Fehler darin liegt, dass der Thread terminiert, bevor das Fenster überhaupt angezeigt wurde. Kann diese Einschätzung stimmen? Und wenn ja wie würdet ihrs angehen?

danke schon mal.

Modales Wartefenster, im Hintergrund läuft Thread

Modales Wartefenster, im Hintergrund läuft Thread

Forumregeln