Bei Beenden des Programmes neue Form erzeugen

[Cyberbob]

Hallo allerseits,

ich habe ein Problem mit meinem Programm. Beim Beenden des selbigen soll eine neue Form erzeugt werden. Damit soll angezeigt werden, wie weit ein Speichervorgang fortgeschritten ist. Nur wird die Form nur für den Bruchteil einer Sekunde angezeigt und zeigt mir gar keinen Speicherfortschritt an.
Die neue Form wird im Destroy-Abschnitt einer anderen Form erzeugt.
Wie kann ich das am besten lösen?

Gruß,
Chris

[Bernhard Geyer]

Ich würde das im OnClose/OnCloseQuery des Hauptformulares anzeigen lassen.

[HenKst]

Ich denke mit ShowModal wär dir gut gedient.

Wenn du im destroy ein Form erzeugst, aber das destroy nicht anhällst ist das Form danach ja trotzdem weg

Mit ShowModal wird das übergeordnete program angehalten und du kannst in Ruhe deine Speicheranzeige abarbeiten.
Wenn die fertig ist setzt du das modalresult entsprechend und das Program wird beendet.

GreeZ HenKst

[Luckie]

also entweder beendest du deine Anwendung und Ende oder du öffnest ein anderes Fenster. Eins von beiden geht nur. Was dich allerdings nicht daran hindert erst ein neues fenster anzuzeigen und wenn das geschlossen wurde deine Anwendung zu beenden.

[Cyberbob]

Die neue Form lass ich mir per ShowModal anzeigen und am Ende des OnDestroy wird sie auch wieder freigegeben. das Speichern der Daten mache ich in einer schleife in der ich die Progressbar um einz hochzähle und dann ein Application.Processmessages aufrufe.
Ich glaube, ich versuche das mit mit Onclose des Hauptformulars

[Sir Rufo]

öh, ich würe die Form von der Speicherroutine selber aus auf- und zumachen lassen

Delphi-Quellcode:

procedure SpeicherMalWasAb;
var
  SpeicherAnzeigeForm : TSpeicherAnzeigeForm;
begin
  SpeicherAnzeigeForm := TSpeicherAnzeigeForm.Create( nil ); // <--- Kein Parent oder was auch immer angeben!!!!
  try
    SpeicherAnzeigeForm.Show;
    // Ab hier wird wild drauf los gespeichert
    
    [... SpeicherCode ...]

    // Fertig mit Speichern
    SpeicherAnzeigeForm.Close;
  finally
    SpeicherAnzeigeForm.Free;
  end;
end;

Dann brauche ich auch nur, wann auch immer das Speichern aufrufen und die Form wird angezeigt und wieder entfernt.

cu

Oliver

[Cyberbob]

So hab ichs. Allerdings mit dem Parent Application, hat das was zu bedeuten?

[Sir Rufo]

Zitat von Cyberbob:

So hab ichs. Allerdings mit dem Parent Application, hat das was zu bedeuten?

Wenn du es genau so machst wie in meinem Beispiel dann tut das auch (just tested)

cu

Oliver