[델파이] delay
공부방/Delphi / 2018. 4. 6. 10:56
Time <- 1000 : 1초
procedure delay(Time: Integer);
var
PastCount: LongInt;
begin
PastCount := GetTickCount;
repeat
Application.ProcessMessages;
until ((GetTickCount-PastCount) >= LongInt(Time));
end;
'공부방 > Delphi' 카테고리의 다른 글
| [델파이] 인터넷 창 띄우기 (0) | 2018.04.06 |
|---|---|
| [델파이] array 관련 (0) | 2018.04.06 |
| [델파이] SendMessage - String 으로 넘기기 (0) | 2018.04.06 |
| [델파이] EncodeBase64 (0) | 2018.04.06 |
| [델파이] 예외처리 구분 경우 (try/except/finally) (0) | 2017.06.08 |