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

powerbuilder

<>与 Visual Basic『DoEvents』同样功能的函式</P>
<>//Application.ProcessMessages </P>
* o& N# }% f# B" \6 ^<>void __fastcall TForm1::FormCreate(TObject* Sender)</P>
$ p9 m$ G4 d: ?  h; f$ T<>{
8 X; R* F! {; ]% z" f: A. Q$ Y  V! I8 B  Button1-&gt;Caption = "Ignore Messages";
  Button2-&gt;Caption = "Handle Message";
}</P>
2 F' `4 e3 c. L/ \<>void __fastcall TForm1::Button1Click(TObject* Sender)
: Y* }7 _* U8 t' Y5 j8 {{
  int x, y;
  for (int i = 0; i &lt; 64000; i++)
* A* @* C8 l" {. O' Z {
. @# x. g5 k& s7 t" ?    Randomize();
    for (int j = 0; j &lt; 64000; j++)
! f8 O  C  f; f8 s+ j& a      y = random(j);
1 D7 n3 V/ [' }2 P    x = random(i);
  }
  Canvas-&gt;TextOut(10, 10, "The Button1Click handler is finished");
}</P>
. N# N; @9 d- a: S+ H% r8 f8 _# m<>void __fastcall TForm1::Button2Click(TObject *Sender)</P>
<>{
# w3 o1 m+ m! _$ g. H  int x, y;
2 ]' L! l9 C! U  for (int i = 0; i &lt; 64000; i++)
" H% P3 f+ m  Q# B. y  {
    Randomize();
! g0 n0 o+ N2 _, M. ~9 G+ J    for (int j = 0; j &lt; 64000; j++)
    {
      y = random(j);
      Application-&gtrocessMessages();
% e2 k7 g3 m6 K( y; B% I3 e    }
    x = random(i);
( T. ^) l2 i/ `2 V5 f: t6 C7 j5 g  }
  Canvas-&gt;TextOut(10, 10, "The Button2Click handler is finished");
}</P>