Borland C++ Builder 与 Visual Basic『DoEvents』同样功能的函式

powerbuilder

<>与 Visual Basic『DoEvents』同样功能的函式</P>
- y( n, A3 m4 J5 b3 n" h<>//Application.ProcessMessages </P>
<>void __fastcall TForm1::FormCreate(TObject* Sender)</P>
<>{
* T5 o8 ~* P9 |4 h' i4 p/ d7 ]  Button1-&gt;Caption = "Ignore Messages";
  Button2-&gt;Caption = "Handle Message";
}</P>
5 F$ W  b" q8 j' ?. G<>void __fastcall TForm1::Button1Click(TObject* Sender)
. G5 \4 P0 l- w( c- ]{
5 @( {, |, {. [2 `4 L2 u+ F  int x, y;
* h( I5 B; J$ p$ K$ ?: W5 _1 [. Y  for (int i = 0; i &lt; 64000; i++)
{
$ l/ d$ }$ [! F! e2 T/ J, Q& i' q    Randomize();
8 P; z. W% {# T/ v  D1 \* k    for (int j = 0; j &lt; 64000; j++)
" u$ G5 [4 ~+ A8 R; _      y = random(j);
9 N# x5 P: G9 I: P1 Y  w8 I# Q    x = random(i);
  }
  Canvas-&gt;TextOut(10, 10, "The Button1Click handler is finished");
9 o+ K$ f) [; @1 ^7 e}</P>
. ~% B; q' X3 \6 \& b<>void __fastcall TForm1::Button2Click(TObject *Sender)</P>
<>{
  int x, y;
  for (int i = 0; i &lt; 64000; i++)
  {
* ?8 c) N2 E; {- R1 L$ E6 E    Randomize();
    for (int j = 0; j &lt; 64000; j++)
0 h& [8 z$ r2 A* M    {
6 ]4 r& }& k, n' {" \      y = random(j);
+ P/ L. p" o* k$ `+ C      Application-&gtrocessMessages();
    }
4 k# G, a5 g1 V8 i$ W) b+ v: Y, B    x = random(i);
4 ?' N" c! n" D" h. k( U: H; a3 [  }
+ o& V/ ?5 z; Y% m( K/ }# I  S' d5 \  Canvas-&gt;TextOut(10, 10, "The Button2Click handler is finished");
}</P>