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

powerbuilder

<>与 Visual Basic『DoEvents』同样功能的函式</P>
& `+ Q# b, {. F2 h# V7 k<>//Application.ProcessMessages </P>
<>void __fastcall TForm1::FormCreate(TObject* Sender)</P>
<>{
  Button1-&gt;Caption = "Ignore Messages";
% O4 U1 n& F) I9 q1 B  Button2-&gt;Caption = "Handle Message";
* y3 S( l3 D9 o! C$ O+ N}</P>
<>void __fastcall TForm1::Button1Click(TObject* Sender)
{
+ w$ K5 ]8 C, W5 O. I: g) W  int x, y;
7 M$ o) }4 `# G3 ?2 k  for (int i = 0; i &lt; 64000; i++)
7 E$ a. g& L- \+ W' K {
, g% e) ^' D+ ?3 _) o# r  w4 ]    Randomize();
    for (int j = 0; j &lt; 64000; j++)
      y = random(j);
    x = random(i);
  }
  Canvas-&gt;TextOut(10, 10, "The Button1Click handler is finished");
}</P>
( E3 t3 I' L# m# Z' _5 z<>void __fastcall TForm1::Button2Click(TObject *Sender)</P>
<>{
4 M8 a5 L; p% Z  int x, y;
. C* j$ v* A  ]2 ~" b) W" y  for (int i = 0; i &lt; 64000; i++)
# T5 k3 w( l: }, ?% I% d' n  {
    Randomize();
5 x2 G5 t* m+ @/ B6 \7 Q0 j    for (int j = 0; j &lt; 64000; j++)
# ], q$ R  f  h" @$ S    {
      y = random(j);
- K  ^3 }. _+ q) T% I+ R      Application-&gtrocessMessages();
0 w3 X% c- |3 ^5 v* L/ ?: K    }
1 S7 e$ H; V2 k1 v3 O; d    x = random(i);
  }
; ~. ]& }  I2 F; K  Canvas-&gt;TextOut(10, 10, "The Button2Click handler is finished");
}</P>