Sleep bei Form.Create

[speedy]

Wollte mal eben mit ner Progressbar spielen und hab mal bei Form.Create folgendes rein:

Code:

  repeat
    sleep(200);
    progressbar1.Position := progressbar1.Position + 2;
    progressbar1.Refresh;
  until progressbar1.Position = 100;

Komischerweise erscheint das komplette Fenster jetzt erst, wenn die Progressbar kurz vor dem Ende ist.
Wenn ich die Schleife allerdings über einen Timer mit 1 ms aufrufe (wird vor der Schleife natürlich deaktiviert) funktioniert alles wie es sollte. Auch die Benutzung von Application.ProcessMessages bringt nichts.

Weiß jemand woran das liegen könnte und ich ohne den Timer auskomme?


Gruß
Roland

[haentschman]

Hallo...

Zitat:

Weiß jemand woran das liegen könnte

Ja... du hast noch nicht verstanden, wann welche Ereignisse ausgeführt werden.

OnCreate...wenn das Formular erzeugt wird. (da ist es noch nichts sichtbar)
OnShow...wenn das Formular angezeigt wird. (da sind noch keine visuellen Komponenten sichtbar)
OnActivate... wenn das Formular den Focus bekommt
...usw.

Vorschlag:
- mach einen "Start" Button
- im OnClick schreibst du deinen Code

[Uwe Raabe]

Die Schleife im FormCreate verhindert, daß das Form im nachfolgenden Application.Run überhaupt angezeigt wird. Erst im Application.Run wird das MainForm angezeigt und die Schleife zur Verarbeitung der Message-Queue gestartet.

[speedy]

Ah jetzt isses mir auch aufgefallen

Danke!