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

powerbuilder

<>与 Visual Basic『DoEvents』同样功能的函式</P>
<>//Application.ProcessMessages </P>
<>void __fastcall TForm1::FormCreate(TObject* Sender)</P>
8 [0 }. a; H+ b; ~, P0 w9 b<>{
0 g/ {7 G7 V2 d. J- b( K' k  Button1-&gt;Caption = "Ignore Messages";
  Button2-&gt;Caption = "Handle Message";
* |$ E  e. P2 m" G5 w}</P>
<>void __fastcall TForm1::Button1Click(TObject* Sender)
{
% e0 `/ R7 E( K  int x, y;
  for (int i = 0; i &lt; 64000; i++)
{
    Randomize();
$ j, N% [9 _3 n2 E* {" V( d    for (int j = 0; j &lt; 64000; j++)
- r4 B& G; K9 C' X* ]      y = random(j);
    x = random(i);
( E& l4 r7 z* V+ X/ F: c" F1 a3 P7 z  }
  Canvas-&gt;TextOut(10, 10, "The Button1Click handler is finished");
% G% K% o$ X4 E& {2 N) Y2 u5 p}</P>
<>void __fastcall TForm1::Button2Click(TObject *Sender)</P>
# y( n2 H/ \; ]# S4 f  v; s9 [<>{
1 n+ M7 K+ o+ L2 D6 @  int x, y;
  for (int i = 0; i &lt; 64000; i++)
) P; _+ ~) y" @/ H  {
) N* n( A$ S6 _+ l( N$ m    Randomize();
    for (int j = 0; j &lt; 64000; j++)
( `8 `3 v6 w" t    {
0 Z1 {* R! G7 L3 n      y = random(j);
. C; g) F  X& a      Application-&gtrocessMessages();
    }
    x = random(i);
8 {) |1 t6 r' w$ D/ i- |  }
7 w! v- j9 j3 V/ M  Canvas-&gt;TextOut(10, 10, "The Button2Click handler is finished");
}</P>