über ProgressBar Text anzeigen

[Hermann85]

Hallo,
Ich habe in mein Programm eine Progressbar mit eingebaut, die immer mit anzeigen soll, wo das Programm gerade ist. Da man in TProgressBar keine Textfunktion hat, hab ichs mal mit einem Label versucht. Das Label würde es mir allerdings erst zeigen, wenn das Programm fertig ist. Also die ganzen Zwischenschritte bleiben aus. Hier mal bisl Code:

Delphi-Quellcode:

    aktion := TForm5.Create(Form5);
    with aktion do
    begin
      Show;
      Progressbar1.Min := 0;
      ProgressBar1.Max := 100;
      ProgressBar1.Step := 20;
      Label1.Caption := 'Datensätze werden gezählt';
      ProgressBar1.StepIt;
      ...
      Label1.Caption := 'Excel wird gestartet';
      ProgressBar1.StepIt;
      ...
      Label1.Caption := 'Fahrten werden ausgewertet';
      ProgressBar1.StepIt;
      ...
      Label1.Caption := 'Diagramme werden erstellt';
      ProgressBar1.StepIt;
      ...
      ProgressBar1.StepIt;
      Close;
      Free;
    end;

Gehe ich vlt total falsch an die Sache ran??

Freue mich über jede Hilfe

viele Grüße

Hermann

[DeddyH]

Ruf mal nach dem Neubelegen der Label.Caption Application.ProcessMessages auf.

[Die Muhkuh]

Oder ein Label.Repaint ;)

[Hermann85]

Supi Danke...funktioniert beides, nur bei Label.Repaint nimmt es anscheinend noch die vorherige Größe des Labels und macht aus z.b. 'Diagramme werden erstellt' ein 'Diagramme werden erstelltet' ;)
Trotzdem vielen Dank
:)