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

powerbuilder

<>与 Visual Basic『DoEvents』同样功能的函式</P>
& g! j2 @2 ~, B+ K4 _/ v<>//Application.ProcessMessages </P>
<>void __fastcall TForm1::FormCreate(TObject* Sender)</P>
<>{
+ d" p3 S6 z) b! a1 T1 r  Button1-&gt;Caption = "Ignore Messages";
  Button2-&gt;Caption = "Handle Message";
}</P>
6 L7 Q3 q, m, Z2 s; W<>void __fastcall TForm1::Button1Click(TObject* Sender)
9 D3 t) v& d- X, `$ J{
  int x, y;
( i1 g' `# Y6 M* c) M  for (int i = 0; i &lt; 64000; i++)
% R; \. ^' W6 X$ P1 ?) g1 M {
    Randomize();
    for (int j = 0; j &lt; 64000; j++)
3 l8 \  A! P/ k: a      y = random(j);
    x = random(i);
+ J& x6 S, G9 H0 R, S  }
  Canvas-&gt;TextOut(10, 10, "The Button1Click handler is finished");
' S  L4 W8 M- m; E7 U  }}</P>
<>void __fastcall TForm1::Button2Click(TObject *Sender)</P>
+ A& i$ v) z) r: _<>{
  int x, y;
! R( e9 T9 g3 w1 c+ X  for (int i = 0; i &lt; 64000; i++)
  {
$ \4 t& G: p8 Y1 a# d9 i) F* ^# k# u    Randomize();
7 n% p; t8 v5 u8 W    for (int j = 0; j &lt; 64000; j++)
    {
/ s- W: O/ Q, j4 K  [- R6 \( T  x      y = random(j);
& O9 I1 S9 F6 Q  A) b/ P      Application-&gtrocessMessages();
/ s3 x" [$ ^9 e    }
    x = random(i);
1 B* P& B; \# o  }
  Canvas-&gt;TextOut(10, 10, "The Button2Click handler is finished");
4 ~, V3 X% n( g) d/ B* D}</P>