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

powerbuilder

<>与 Visual Basic『DoEvents』同样功能的函式</P>
<>//Application.ProcessMessages </P>
<>void __fastcall TForm1::FormCreate(TObject* Sender)</P>
<>{
  Button1-&gt;Caption = "Ignore Messages";
0 k/ s4 \7 Z! \5 }) F4 Y  Button2-&gt;Caption = "Handle Message";
}</P>
<>void __fastcall TForm1::Button1Click(TObject* Sender)
{
5 z8 N% U* {: m  int x, y;
% M4 _" x' |% u, o, h- ]1 T  for (int i = 0; i &lt; 64000; i++)
{
    Randomize();
    for (int j = 0; j &lt; 64000; j++)
      y = random(j);
    x = random(i);
  }
  Canvas-&gt;TextOut(10, 10, "The Button1Click handler is finished");
}</P>
' o, z6 c! z, U& Y<>void __fastcall TForm1::Button2Click(TObject *Sender)</P>
<>{
  int x, y;
  for (int i = 0; i &lt; 64000; i++)
* k$ P/ U+ U) P$ d0 G0 v# e$ e  {
8 S7 y& y: W7 g2 @    Randomize();
, p) G; {2 y( l/ c    for (int j = 0; j &lt; 64000; j++)
    {
; K) L% b% n/ y1 v      y = random(j);
      Application-&gtrocessMessages();
. S& ^" h2 D! w3 s    }
9 s6 f; o1 i8 e    x = random(i);
& `: n; |7 {8 v/ |+ O' s& U4 p2 D- G; r  }
) U' @2 w- H7 ^" w0 k3 _) k  Canvas-&gt;TextOut(10, 10, "The Button2Click handler is finished");
3 a$ Q: z% J' E: U}</P>