[Code] Delphi Timer

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von Dilly_Concane, 28. November 2009 .

Schlagworte:
Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen
  1. #1 28. November 2009
    Delphi Timer

    Moin,
    Sleep(..) würde natürlich das ganze Programm lahmlegen, meine While-Schleife muss allerdings auch während der Verzögerung abbrechbar sein. Daher habe ich mir folgenden Timer gebastelt:
    Code:
    procedure Delay(delaytime: integer);
    var
     starttime: longint;
    
    begin
    
     starttime := GetTickCount;
     repeat
     Application.ProcessMessages;
     until (GetTickCount - starttime) >= delaytime;
    
    end;
    Funktioniert soweit auch prima, lastet nur blöderweise einen Kern erstmal komplett aus. Für dämliche Rumspielerei leider etwas zu viel :-D
    Hat da jemand eine hübsche Idee?
     

  2. Anzeige
    Heute: Deals & Sale mit stark reduzierten Angeboten finden.
  3. #2 29. November 2009

  4. Videos zum Thema
Die Seite wird geladen...