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

powerbuilder

<>与 Visual Basic『DoEvents』同样功能的函式</P>
<>//Application.ProcessMessages </P>
<>void __fastcall TForm1::FormCreate(TObject* Sender)</P>
" T" M$ c; Y; H<>{
  Button1-&gt;Caption = "Ignore Messages";
' V% Q% U4 p2 U+ K9 Q3 A  Button2-&gt;Caption = "Handle Message";
}</P>
/ j3 a, t4 M3 Y2 U/ ~5 b' @2 a, D. b% G<>void __fastcall TForm1::Button1Click(TObject* Sender)
. b- C. B: q% U" V2 O" @0 o+ X{
4 f& t' D/ C% Z+ b0 ]3 Y, v  int x, y;
  for (int i = 0; i &lt; 64000; i++)
{
& |( C- D: u; {* Y$ H    Randomize();
5 |$ Y! `9 R$ e2 V8 q& K3 ^    for (int j = 0; j &lt; 64000; j++)
+ a! u& ?9 C2 f1 u, R      y = random(j);
; g8 c" s* Q& o- Q: R    x = random(i);
  }
  Canvas-&gt;TextOut(10, 10, "The Button1Click handler is finished");
}</P>
<>void __fastcall TForm1::Button2Click(TObject *Sender)</P>
<>{
- t. Z/ y% v' {" y; ^  X  int x, y;
+ x; L" Q: F" U" O  for (int i = 0; i &lt; 64000; i++)
6 C1 }' W- l/ r, w! I  {
    Randomize();
2 [6 D! S! l% _6 v    for (int j = 0; j &lt; 64000; j++)
* R# a" f* C& G# _0 ~    {
      y = random(j);
      Application-&gtrocessMessages();
    }
* o$ m! l7 g* n; n4 _0 r5 u* ?    x = random(i);
  }
6 A2 `+ @3 Z0 K7 M- a+ v! z  Canvas-&gt;TextOut(10, 10, "The Button2Click handler is finished");
}</P>