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

powerbuilder

<>与 Visual Basic『DoEvents』同样功能的函式</P>
<>//Application.ProcessMessages </P>
<>void __fastcall TForm1::FormCreate(TObject* Sender)</P>
7 E7 R' m/ E9 b<>{
  Button1-&gt;Caption = "Ignore Messages";
  Button2-&gt;Caption = "Handle Message";
6 {" x2 D, ]! x* u% C}</P>
<>void __fastcall TForm1::Button1Click(TObject* Sender)
6 a( c; a% V" L{
  int x, y;
8 E. L/ b/ W" ~* U  for (int i = 0; i &lt; 64000; i++)
{
! v, O; `4 y- K9 A$ c& q0 R    Randomize();
* g. r: Q2 p7 d. |; ^+ Y7 }2 q) N1 S    for (int j = 0; j &lt; 64000; j++)
! O9 w8 Y) B) _9 u      y = random(j);
+ p2 A$ M! \# D! n! O    x = random(i);
  }
; r. T- ~1 Y! C: J1 \$ m  I) T. E  Canvas-&gt;TextOut(10, 10, "The Button1Click handler is finished");
/ w8 f' t( F7 H8 I7 q5 i: p7 b}</P>
7 X4 @5 [" g0 i2 h% T+ L<>void __fastcall TForm1::Button2Click(TObject *Sender)</P>
<>{
  int x, y;
, Z) R0 P+ f6 J* U2 c8 W' K% O6 L( B; i4 z  for (int i = 0; i &lt; 64000; i++)
  {
    Randomize();
    for (int j = 0; j &lt; 64000; j++)
    {
3 v0 Y' c, {, C% x      y = random(j);
      Application-&gtrocessMessages();
    }
& i% o6 {, n5 _' q: t+ V    x = random(i);
/ [5 C! K- ^: {$ g  }
# d& N% z7 |/ g! z) M, ?  Canvas-&gt;TextOut(10, 10, "The Button2Click handler is finished");
}</P>