label anzeigen ?

[malabarista]

Mein Programm testet zuerst die Internetverbindung, macht dann einen Download und entpackt ihn dann.
Damit der Anwender weiss, was gerade läuft, wollte ich diese einzelnen Funktionen in einem Label anzeigen.

Code: Alles auswählen

 
status.caption:=' Test Internetverbindung ';
connected:=test_internet;
if connected then
   begin                             
   status.caption:=' Downloading . . . '; // <-- wird nicht angezeigt
   Show;
   sleep(1000);
   ok:=download_starten(url);
   if ok then
      begin
      status.caption:='Entpacken';
      entpacken(ziel);
      end;
   end;
 

Leider wird der "Downloading" nicht angezeigt, vermutlich weil diese Statuswechsel sehr schnell gehen.
Deshalb habe ich den Show und den sleep eingefügt: aber trotzdem wird er nicht angezeigt.
Wie kann ich erreichen, dass er angezeigt wird ?

[gladio]

Hast du mit einem Haltepunkt getestet, ob die Caption mit dem neuen Inhalt beschrieben wird?
wenn ja und du hast genühend Platz würde ich die einzelnen Capions addieren:

Code: Alles auswählen

status.caption:=status.caption+' Downloading . . . ';

und beim Nächsten auch.
Dann bleibt das auch lesbar.
Oder die Meldungen in ein Memo zeilenweise schreiben.

[m.fuchs]

Es fehlt ein Application.ProcessMessages nach der Änderung des Labels.