[gelöst] Textfeld in Schleife auffrischen

[Theozh]

Hallo zusammen,
ich stehe grad auf dem Schlauch...
In einer simplen Schleife möchte ich in einer Textzeile den Fortschritt anzeigen lassen.
Doch die Schleife läuft durch und nur der letzte Wert wird angezeigt.
FStatus ist ein Textfeldobjekt in TForm1

Code: Alles auswählen

 
procedure TForm1.Button1Click(Sender: TObject);
begin
  for x:= 0 to 13 do
  begin
    FStatus.Text:= IntToStr(x);
    sleep(1000);
  end;
end;    
 

Wenn ich statt der Zeile

Code: Alles auswählen

 
    FStatus.Text:= IntToStr(x);
 

Code: Alles auswählen

 
   ShowMessage(FStatus.Text);
 

einsetze bekomme ich nach jedem Schritt ein Fenster.
Wie mache ich das bei einem Textfeld?

Danke für Hinweise, Theo.

[m.fuchs]

Code: Alles auswählen

 
procedure TForm1.Button1Click(Sender: TObject);
begin
  for x:= 0 to 13 do begin
    FStatus.Text:= IntToStr(x);
    Application.ProcessMessages;
    sleep(1000);
  end;
end;

Hintergrund: Das Application.ProcessMessages; sorgt dafür dass dein Programm die angefallenen Windows-Botschaften abarbeitet. Solange es das nicht tut wird auch keine Wertänderung angezeigt.

[Theozh]

aha... Vielen Dank!
Da muss man erst draufkommen...