Announcement

Collapse
No announcement yet.

Form vor beenden der Applikation anzeigen??

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Form vor beenden der Applikation anzeigen??

    Hallo zusammen,

    ich möchte vor dem beenden einer Applikation in einem Fenster (Form2) eine Meldung inkl. ProgressBar anzeigen, die dem Benutzer zeigt, wie lange das Programm noch braucht, um verschiedene Sachen, vor dem Beenden, zu erledigen. (dauert ca. 3-4 sec.)
    Allerdings zeigt sich die Form nur unvollständig an.
    Nur Rahmen ohne Anzeige des Labels oder des ProgressBars...

    Aufruf aus Unit1 mit:

    procedure TForm1.Exit1Click(Sender: TObject);
    begin
    form2.Show();
    form2.anzeige();
    close;
    end;

    In der Procedure anzeige(), werden verschiedene Komponenten etc... beendet
    Ich habe auch schon versucht, die Proc. anzeige() im OnShow Ereignis von Form2 aufzurufen, funktioniert aber auch nicht.
    Kann mir jemand weiterhelfen?

    Gruß Anfred

  • #2
    Da würd ich sagen ist ein Rechner zu schnell, d.h. du speicherst schneller, als der Rechner für den Bildaufbau braucht. Mach nach dem Show einfach mal ein application.prozessmessages. Dann sollte es besser werden.

    Gruß Uw

    Comment


    • #3
      Hi Uwe,

      vielen Dank. Klappt jetzt alles perfekt.

      Gruß
      Anfre

      Comment


      • #4
        Das Problem ist, das die Messagepumpe ausfaellt. TForm1 ist deine Hauptform und Close sendet ein WM_QUIT aus und daraufhin werden keine Messages mehr verteilt

        Comment

        Working...
        X