Delay Procedure freezt das Prog.

[sabbert]

Hey zusammen,

Ich benutze diese Delay Procedure:

Delphi-Quellcode:

procedure Delay(dwMilliseconds: Longint);
var
  iStart, iStop: DWORD;
begin
  iStart := GetTickCount;
  repeat
    iStop := GetTickCount;
    Application.ProcessMessages;
  until (iStop - iStart) >= dwMilliseconds;
end;

doch ich suchte eine Procedure die mein Programm nicht einfiert so wei sleep();

habe dann Delay() gefunden, doch leider friert mein Programm denoch für diese kurze Zeit ein :(

Einer eine Idee?

mfg

[hathor]

Ich habe den Eindruck, dass die Reihenfolge bei Deinem Beispiel nicht sinnvoll ist:
Du vertrödelst Zeit mit dem Application.ProcessMessages; nachdem Du das Resultat schon hast...

Delphi-Quellcode:

var
lnTickCount: LongInt;
begin
lnTickCount := GetTickCount;
repeat
    Application.ProcessMessages;
until ((GetTickCount - lnTickCount) >= LongInt(iMSecs));
end;

[Dax]

Viel besseres Delay

[hathor]

Vergleich - siehe Anhang:

[rollstuhlfahrer]

und welche von den drein ist was?

Bernhard

[hathor]

Zitat:

Zitat von rollstuhlfahrer

und welche von den drein ist was?

Bernhard

So, wie sie hier zitiert werden:

1. schlecht

2. auch nicht viel besser

3. gut!
http://www.delphipraxis.net/internal...ect.php?t=7355