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

powerbuilder

<>与 Visual Basic『DoEvents』同样功能的函式</P>
8 G9 `# a4 L8 W# y9 l  V<>//Application.ProcessMessages </P>
" `3 I5 F9 J$ x; K1 z  T$ C<>void __fastcall TForm1::FormCreate(TObject* Sender)</P>
; m) Q& W" |) v# [" L" o1 R<>{
2 c, S% @2 G2 R7 _& M; B. J' M  Button1-&gt;Caption = "Ignore Messages";
4 @& L8 q! q3 H& K9 W+ `0 `  Button2-&gt;Caption = "Handle Message";
# `5 @- E* ?1 E) i8 h}</P>
<>void __fastcall TForm1::Button1Click(TObject* Sender)
{
/ M) v7 u, d( [) U0 }& I8 F$ R( {; Q  int x, y;
# n8 X% `5 B, C! H( K' f- E  for (int i = 0; i &lt; 64000; i++)
) N/ O! @/ m) {, x  L, P# { {
    Randomize();
    for (int j = 0; j &lt; 64000; j++)
      y = random(j);
" W2 t% w1 |1 c, D5 S$ U& \    x = random(i);
  }
# M# ~( R5 A7 G+ Y) \. y  Canvas-&gt;TextOut(10, 10, "The Button1Click handler is finished");
}</P>
% L/ [; J  t, w) S% z, Q<>void __fastcall TForm1::Button2Click(TObject *Sender)</P>
% e( ~  ^1 y9 @1 H. t, Y: h3 ?7 u<>{
* i* o6 p5 G3 ?8 X5 K0 w" r  int x, y;
  for (int i = 0; i &lt; 64000; i++)
  {
    Randomize();
    for (int j = 0; j &lt; 64000; j++)
    {
      y = random(j);
' J) I5 B. I2 }' T. K4 ^1 t7 b. _      Application-&gtrocessMessages();
    }
    x = random(i);
: [1 x  n5 x  j3 |# E6 |  }
  {1 Y* D9 M. g( m2 X. u  Canvas-&gt;TextOut(10, 10, "The Button2Click handler is finished");
. _7 ~$ n- z, C/ W& v# R3 Q}</P>