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

powerbuilder

<>与 Visual Basic『DoEvents』同样功能的函式</P>
, j1 E$ V1 M% d) d<>//Application.ProcessMessages </P>
$ U0 A  J$ Q$ X- w- ]<>void __fastcall TForm1::FormCreate(TObject* Sender)</P>
<>{
2 V( c4 k' C6 F$ D% S  Button1-&gt;Caption = "Ignore Messages";
7 t8 x5 T$ _2 l  R  o& D  Button2-&gt;Caption = "Handle Message";
}</P>
<>void __fastcall TForm1::Button1Click(TObject* Sender)
{
4 v8 L9 j2 T  g5 E- ^1 v  int x, y;
  for (int i = 0; i &lt; 64000; i++)
{
$ x$ f7 f* K$ z+ q    Randomize();
# N: F5 d- s+ S, V8 b    for (int j = 0; j &lt; 64000; j++)
      y = random(j);
    x = random(i);
, f! X  c+ a" j! u/ D( K  }
9 j% _( ?" Q8 E' H  Canvas-&gt;TextOut(10, 10, "The Button1Click handler is finished");
}</P>
+ H9 Z/ @. L  c+ L- u<>void __fastcall TForm1::Button2Click(TObject *Sender)</P>
# b4 l4 |% F4 g  d<>{
  int x, y;
8 A( a0 I) ~7 ]1 M) W7 b( v9 Y  for (int i = 0; i &lt; 64000; i++)
3 }) g! _! W9 i! R. F  {
    Randomize();
    for (int j = 0; j &lt; 64000; j++)
1 K* S7 Y7 U! y: B9 }* f: F    {
      y = random(j);
      Application-&gtrocessMessages();
5 L$ K  n6 j/ c    }
    x = random(i);
' g' B8 s* h0 t  }
  Canvas-&gt;TextOut(10, 10, "The Button2Click handler is finished");
}</P>