[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. 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?
     
  3. 29. November 2009
    AW: Delphi Timer

    Nungut, ich bin auch ein ganz ordentlicher Deppchef...
    Gelöst habe ich das ganze nun mit dem halben Programmieraufwand und dem Multimedia-Timer gelöst (Multimedia-Timer von CK_CK auf delphipraxis.net)
     
  4. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.