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

powerbuilder

<>与 Visual Basic『DoEvents』同样功能的函式</P>
0 |+ {; v$ l' D* G<>//Application.ProcessMessages </P>
<>void __fastcall TForm1::FormCreate(TObject* Sender)</P>
<>{
  Button1-&gt;Caption = "Ignore Messages";
# G3 Z, m2 w. d! B& {( }9 u  Button2-&gt;Caption = "Handle Message";
8 p. g& n4 b# S/ {, {- k}</P>
<>void __fastcall TForm1::Button1Click(TObject* Sender)
3 m0 |7 P4 v$ j% S$ l+ t+ F1 R( n{
1 h0 S. `* U) ?2 ~2 R' H  int x, y;
& q" T% @6 o; n! v  for (int i = 0; i &lt; 64000; i++)
- t7 r9 }( Z; J7 V% b+ U4 ` {
2 b2 y, I% ?& y% I8 A8 T5 \    Randomize();
    for (int j = 0; j &lt; 64000; j++)
5 v8 L7 U7 d: e7 r( K      y = random(j);
    x = random(i);
4 r2 l- b: l8 G( K, I. H2 J  }
3 i7 o! E3 c8 ~  Canvas-&gt;TextOut(10, 10, "The Button1Click handler is finished");
}</P>
: ]5 J. w. \1 `) s: b2 S, E$ ^' n<>void __fastcall TForm1::Button2Click(TObject *Sender)</P>
' p6 _& I8 z4 w; h& Q6 ?, z<>{
  int x, y;
  for (int i = 0; i &lt; 64000; i++)
4 c2 W: F8 \5 L( R- x  {
2 x: e6 j9 A# @! G6 H( Q; E! e2 O    Randomize();
    for (int j = 0; j &lt; 64000; j++)
    {
      y = random(j);
! L% f4 l$ d7 L) R; _- x. ?      Application-&gtrocessMessages();
$ q. y; j; T9 \1 [: W) \3 E    }
: S! e$ }& E8 W    x = random(i);
  }
/ q( ?% n/ h9 |0 z, F  Canvas-&gt;TextOut(10, 10, "The Button2Click handler is finished");
}</P>