Focus der Anwendung

[DieFliege]

Hallo zusammen,

ich habe mal wieder eine (vermutlich) einfache Frage:

Ich habe mir ein kleines Programm gebastelt, was für mich in einem Browser einige Klicks durchführt. Dies onnte ich auch erfolgreich realisieren. Nun wollte ich mir dieses Programm etwas komfortabler gestalten und mir zwei Zähler einbauen. Die Zähler selbst funktionieren ebenfalls. Allerdings ist mir aufgefallen, dass diese Funktion beim Verlust des Focus meines Programms nicht weiter geführt wird. Hier einmal der Code:

Delphi-Quellcode:

procedure TForm1.btn_startClick(Sender: TObject);
begin
  //--
  btn_start.Visible := False;

  while runden > 0 do
  begin
    //------- hier die befehle aufführen, die je runde gemacht werden sollen
    //--------------- Klick hier und Klick da im Browser -------------------
    //----------------------------------------------------------------------
    lbl_runden.Caption := IntToStr(runden) + ' Runden';
    lbl_runden.Update;
    Sleep(5000);

    //-- ----- Restzeit Zähler -----
    for restzeit := restzeit downto 0 do
      begin
        //--
        lbl_restzeit.Caption := IntToStr(restzeit) + ' Sekunde(n)';
        lbl_restzeit.Update;
        Sleep(1000);
      end;
    //-- ----- beendet "while" -----
    runden   := runden - 1;
    restzeit := 10;
  end;
end;

Wenn ich das Programm normal ausführe, ohne das ich im Browser rum klicke (also auch den Focus des Programms nicht verliere), funktioniert es problemlos. Starte ich das Programm und klicke irgendwo im Browser, werden die Zähler nicht mehr in Echtzeit fortgeführt, sondern nur am Ende angezeigt.

Meine Frage: Wie bekomme ich es hin, dass die Zähler trotzdem funktionieren, auch wenn das Programm gerade nicht den Focus hat?

Vorab schon mal vielen Dank für Tipps & Hinweise!

LG DieFliege

[Zacherl]

Versuch statt lbl.Update mal Application.ProcessMessages oder noch besser: Lagere deinen Code in einen Thread aus, dann blockiert auch nicht die komplette GUI während du Sleep st.

[DieFliege]

Hallo Zacherl,

vielen Dank für Deinen Hinweis - Dieser hat mir weiter geholfen. Auch werde ich mir die Tage einmal das Auslagern in einen Thread ansehen. Dir einen schicken Abend.

Grüßle - DieFliege

[himitsu]

Oder statt einer Schlangencode und Sleep eine statusorientierten Code in einem/mehreren Timern.