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

powerbuilder

<>与 Visual Basic『DoEvents』同样功能的函式</P>
<>//Application.ProcessMessages </P>
1 G$ Q$ ]  ~% y( }  ?( m<>void __fastcall TForm1::FormCreate(TObject* Sender)</P>
6 ?. i; f& i$ W6 \: S<>{
# q: T0 }( K1 y  _0 X  Button1-&gt;Caption = "Ignore Messages";
  Button2-&gt;Caption = "Handle Message";
}</P>
<>void __fastcall TForm1::Button1Click(TObject* Sender)
/ o: g6 Z2 ^+ T* F2 O. q$ a: M{
  int x, y;
# r- |, b4 K( [, s8 H  for (int i = 0; i &lt; 64000; i++)
{
    Randomize();
6 g$ k) G! `7 v8 E* \2 X1 `    for (int j = 0; j &lt; 64000; j++)
      y = random(j);
    x = random(i);
5 N6 T. g9 V! H7 r: E2 _  }
9 W( h6 S2 ]! r% i  Canvas-&gt;TextOut(10, 10, "The Button1Click handler is finished");
* q6 k& Y* q* F% G. O5 v2 j% l}</P>
: U$ z, G% u4 X0 A6 V1 a<>void __fastcall TForm1::Button2Click(TObject *Sender)</P>
# d& |9 T  m$ {+ x* D# d<>{
4 [. k0 i* h7 J% k/ x' I" ^  int x, y;
  for (int i = 0; i &lt; 64000; i++)
  {
    Randomize();
    for (int j = 0; j &lt; 64000; j++)
: Y& F# `- j, m8 j% y    {
$ N6 U3 c) Q/ B% n      y = random(j);
      Application-&gtrocessMessages();
6 c. B& @  \% q" [8 Z    }
    x = random(i);
  }
" C2 ]# o6 v0 H! D$ y' y+ F( ]0 g  Canvas-&gt;TextOut(10, 10, "The Button2Click handler is finished");
}</P>