Re: Delay in Formless GUI application

Article View: borland.public.delphi.language.objectpascal

Article #32428

Back to borland.public.delphi.language.objectpascal Previous Next

#32428

From: Peter Below (TeamB)
Date: Fri, 22 Nov 2002 18:43

21 lines
1758 bytes

In article <3dde4d3a$1@newsgroups.borland.com>, David B. Ferguson wrote:
> procedure Delay(MilliSecs: Integer);
> var x:: LongInt;
> begin
>    x:=GetTickCount;
>    repeat
>       Application.ProcessMessages;
>    until ((GetTickCount-x) >= Longint(MilliSecs));
> end;

Well, that would really cause 100% CPU usage. At least insert a Sleep(10) 
into the loop.


--
Peter Below (TeamB)  
Use the newsgroup archives :
http://www.mers.com/searchsite.html
http://www.tamaracka.com/search.htm
http://groups.google.com
http://www.prolix.be

Technical Details

Message-ID: <VA.00009661.00864844@antispam.compuserve.com>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-05!sn-xit-06!sn-xit-08!supernews.com!newsfeed.online.be!fu-berlin.de!news.uni-x.net!newsgroups.borland.com!not-for-mail

References:

<j3irtukg6568s7q0ishs57vmrng5g284ra@4ax.com> <3dddd21f$1@newsgroups.borland.com> <3dddd953@newsgroups.borland.com> <5iortus03ebeqon39u1gi80k51kcog08dr@4ax.com> <3dde4d3a$1@newsgroups.borland.com>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 109d30,78305e78c1df1611
X-Google-Attributes: gid109d30,public
X-Google-ArrivalTime: 2002-11-22 11:15:50 PST
Date: Fri, 22 Nov 2002 19:43:30 +0100
Newsgroups: borland.public.delphi.language.objectpascal
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-Newsreader: Virtual Access by Atlantic Coast PLC, http://www.atlantic-coast.com/va
Organization: TeamB
Message-ID: <VA.00009661.00864844@antispam.compuserve.com>
Subject: Re: Delay in Formless GUI application
From: "Peter Below (TeamB)" <100113.1101@compuXXserve.com>
Reply-To: 100113.1101@compuXXserve.com
References: <j3irtukg6568s7q0ishs57vmrng5g284ra@4ax.com> <3dddd21f$1@newsgroups.borland.com> <3dddd953@newsgroups.borland.com> <5iortus03ebeqon39u1gi80k51kcog08dr@4ax.com> <3dde4d3a$1@newsgroups.borland.com>
NNTP-Posting-Host: 62.226.189.68
X-Trace: newsgroups.borland.com 1037990600 62.226.189.68 (22 Nov 2002 10:43:20 -0800)
Lines: 23
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-05!sn-xit-06!sn-xit-08!supernews.com!newsfeed.online.be!fu-berlin.de!news.uni-x.net!newsgroups.borland.com!not-for-mail

Reply to Parent Message