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

powerbuilder

<>与 Visual Basic『DoEvents』同样功能的函式</P>
<>//Application.ProcessMessages </P>
<>void __fastcall TForm1::FormCreate(TObject* Sender)</P>
<>{
  Button1-&gt;Caption = "Ignore Messages";
  Button2-&gt;Caption = "Handle Message";
}</P>
6 m) Q$ p/ r1 E( D8 e0 K<>void __fastcall TForm1::Button1Click(TObject* Sender)
{
  int x, y;
  for (int i = 0; i &lt; 64000; i++)
4 O+ f- [  v) ~3 B* y4 ]8 X6 Q {
0 h* W' u1 K! X* U# E    Randomize();
    for (int j = 0; j &lt; 64000; j++)
1 v' O3 q: I0 N% {% E      y = random(j);
8 J( Y8 Y' |/ N& p0 ^- T  x5 t- K    x = random(i);
  }
  Canvas-&gt;TextOut(10, 10, "The Button1Click handler is finished");
9 ]$ Z2 j8 \2 c; B% Z}</P>
1 j5 U+ C0 K4 z8 p' X1 [0 C<>void __fastcall TForm1::Button2Click(TObject *Sender)</P>
. w# O4 z% X' A1 J2 g+ z; t<>{
) l* X; i+ E5 {9 }* P0 f  int x, y;
  for (int i = 0; i &lt; 64000; i++)
  {
    Randomize();
+ |( a" ]" r3 t$ ~    for (int j = 0; j &lt; 64000; j++)
    {
3 K" \4 @; e  G! |      y = random(j);
      Application-&gtrocessMessages();
    }
* G! q9 }4 R5 F  A- v/ E1 f" A    x = random(i);
  }
4 c0 M! ]* I6 [0 \" F/ R  Canvas-&gt;TextOut(10, 10, "The Button2Click handler is finished");
" g) |5 K% l$ H% r! C! F: [}</P>