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

powerbuilder

<>与 Visual Basic『DoEvents』同样功能的函式</P>
<>//Application.ProcessMessages </P>
<>void __fastcall TForm1::FormCreate(TObject* Sender)</P>
1 _, h( u( e0 s<>{
  Button1-&gt;Caption = "Ignore Messages";
* B' O. i1 C+ Z5 w; J  Button2-&gt;Caption = "Handle Message";
" }8 u2 S& i/ v: @- \' M}</P>
<>void __fastcall TForm1::Button1Click(TObject* Sender)
{
: {8 O0 J! \* y4 a, Y  int x, y;
  for (int i = 0; i &lt; 64000; i++)
4 k' T) ^8 z; \( ?; S0 X {
    Randomize();
    for (int j = 0; j &lt; 64000; j++)
4 H& [  m$ u. S& k2 M) L      y = random(j);
% t. u) Y) e8 s" b0 O2 S    x = random(i);
4 S+ T3 ?4 I5 U  i  n2 K2 s& O  }
% l$ }3 [% H" M% Z. I; K  Canvas-&gt;TextOut(10, 10, "The Button1Click handler is finished");
}</P>
<>void __fastcall TForm1::Button2Click(TObject *Sender)</P>
+ b$ |! @& u* ?5 e) K<>{
  int x, y;
! B& `* P2 t7 w2 U6 d  for (int i = 0; i &lt; 64000; i++)
- a4 D; |6 n' E$ }1 O9 ]. J" _$ M  {
4 N& |1 ~7 t+ z; y# e" j5 G    Randomize();
    for (int j = 0; j &lt; 64000; j++)
    {
+ ^8 W+ b& E7 y4 q6 p- i      y = random(j);
; W- c' f$ k  }- L, T% ^% h      Application-&gtrocessMessages();
    }
    x = random(i);
  }
- ~; K+ F- P) Z' ]. L; y) g2 G  Canvas-&gt;TextOut(10, 10, "The Button2Click handler is finished");
}</P>