Re: Delay in Formless GUI application

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

Article #32499

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

#32499

From: David B. Ferguson
Date: Fri, 22 Nov 2002 15:29

19 lines
1654 bytes

"DGJ" <DGJ@XXX-Btinternet-XXX.com> wrote in message
news:5iortus03ebeqon39u1gi80k51kcog08dr@4ax.com...
> Hi
>
> Sorry, when I said CPU overhead what I meant really was that some
> windows do not get redrawn properly in any application that starts at
> the same time as mine.
>
> DGJ
>

procedure Delay(MilliSecs: Integer);
var x:: LongInt;
begin
   x:=GetTickCount;
   repeat
      Application.ProcessMessages;
   until ((GetTickCount-x) >= Longint(MilliSecs));
end;

Technical Details

Message-ID: <3dde4d3a$1@newsgroups.borland.com>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-01!sn-xit-08!supernews.com!newshosting.com!news-xfer1.atl.newshosting.com!news.stealth.net!news.stealth.net!208.184.7.66.MISMATCH!newsfeed1.cidera.com!Cidera!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>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 109d30,78305e78c1df1611,start
X-Google-Attributes: gid109d30,public
X-Google-ArrivalTime: 2002-11-22 08:15:48 PST
From: "David B. Ferguson" <david.mcs@ns.sympatico.ca>
Newsgroups: borland.public.delphi.language.objectpascal
References: <j3irtukg6568s7q0ishs57vmrng5g284ra@4ax.com> <3dddd21f$1@newsgroups.borland.com> <3dddd953@newsgroups.borland.com> <5iortus03ebeqon39u1gi80k51kcog08dr@4ax.com>
Subject: Re: Delay in Formless GUI application
Date: Fri, 22 Nov 2002 11:29:00 -0400
Lines: 21
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-MIMEOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
NNTP-Posting-Host: 142.177.229.19
Message-ID: <3dde4d3a$1@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1037978938 142.177.229.19 (22 Nov 2002 07:28:58 -0800)
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-01!sn-xit-08!supernews.com!newshosting.com!news-xfer1.atl.newshosting.com!news.stealth.net!news.stealth.net!208.184.7.66.MISMATCH!newsfeed1.cidera.com!Cidera!news.uni-x.net!newsgroups.borland.com!not-for-mail

Reply to Parent Message