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

powerbuilder

<>与 Visual Basic『DoEvents』同样功能的函式</P>
8 [, A5 F9 Y" D4 Z4 ~" _9 ~% \7 Y<>//Application.ProcessMessages </P>
<>void __fastcall TForm1::FormCreate(TObject* Sender)</P>
* g1 e! _  V" K1 z( Q: Y0 y<>{
  Button1-&gt;Caption = "Ignore Messages";
  Button2-&gt;Caption = "Handle Message";
}</P>
- y8 W$ ?& ?1 E- E% o<>void __fastcall TForm1::Button1Click(TObject* Sender)
{
  int x, y;
7 L' n( b: a: F- n" I- u" ?0 o  for (int i = 0; i &lt; 64000; i++)
% E7 p/ g% n# ? {
    Randomize();
% b- D' y) y- b! I2 r$ [6 e! R    for (int j = 0; j &lt; 64000; j++)
; W. w" H" C6 k# G: ], S" ^3 ]/ ]+ B* @* ^      y = random(j);
5 n7 J- o6 t4 s: _7 T' x( [0 l    x = random(i);
  }
  Canvas-&gt;TextOut(10, 10, "The Button1Click handler is finished");
+ r0 x, u8 ~2 G* C4 {1 `}</P>
<>void __fastcall TForm1::Button2Click(TObject *Sender)</P>
<>{
  int x, y;
1 W- z) z+ X: M# Z9 p" L  for (int i = 0; i &lt; 64000; i++)
' F" F6 m) L7 W( X! ?  {
, D% N0 G7 ~) K. i7 w; e4 C% ]- h# U3 p3 j    Randomize();
  v/ H* O" h, \7 c8 j0 k: a8 ^% X- ~    for (int j = 0; j &lt; 64000; j++)
% G2 \5 @# Z: s6 I5 S2 w0 Q4 r+ m    {
3 z$ p0 C* _0 V* x      y = random(j);
  i" w6 d2 S1 Q, p: X8 ~      Application-&gtrocessMessages();
! s+ @" y1 _1 B2 d5 f% s; H7 ?    }
    x = random(i);
8 ^, V$ r1 |% _0 x  }
  Canvas-&gt;TextOut(10, 10, "The Button2Click handler is finished");
) h- Q* S- S% w2 s6 s}</P>