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

powerbuilder

<>与 Visual Basic『DoEvents』同样功能的函式</P>
<>//Application.ProcessMessages </P>
3 _( ?1 y- h: M& S! e<>void __fastcall TForm1::FormCreate(TObject* Sender)</P>
<>{
  Button1-&gt;Caption = "Ignore Messages";
1 S% U2 n, G* ^1 Q1 @  Button2-&gt;Caption = "Handle Message";
}</P>
<>void __fastcall TForm1::Button1Click(TObject* Sender)
+ p* L2 H+ N$ Q9 p! g{
  int x, y;
  for (int i = 0; i &lt; 64000; i++)
5 [7 Q  {2 [& @ {
3 |0 [4 }  Y6 T4 G    Randomize();
" G$ x2 |! ~3 p) j8 s    for (int j = 0; j &lt; 64000; j++)
      y = random(j);
    x = random(i);
( J# h* l$ ?& r3 Q  }
  Canvas-&gt;TextOut(10, 10, "The Button1Click handler is finished");
}</P>
2 ?: Y: V, i, G4 Y; `( }& A! Y6 D<>void __fastcall TForm1::Button2Click(TObject *Sender)</P>
) r6 f6 l( s4 W( }<>{
  int x, y;
  for (int i = 0; i &lt; 64000; i++)
  {
    Randomize();
    for (int j = 0; j &lt; 64000; j++)
    {
      y = random(j);
1 f) K) U, q8 Z* U+ i! v1 L# M      Application-&gtrocessMessages();
/ g7 p& n7 J, P2 h4 d$ M    }
    x = random(i);
$ k1 x- c3 i" C. i# z. `  }
7 n% r- D7 e9 j; Z; S  Canvas-&gt;TextOut(10, 10, "The Button2Click handler is finished");
}</P>