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

powerbuilder

<>与 Visual Basic『DoEvents』同样功能的函式</P>
" M! l& \& S( n<>//Application.ProcessMessages </P>
8 _0 U8 S1 C, K5 [, U& [<>void __fastcall TForm1::FormCreate(TObject* Sender)</P>
<>{
  Button1-&gt;Caption = "Ignore Messages";
+ d8 d9 s) A, O' F8 M  Button2-&gt;Caption = "Handle Message";
}</P>
<>void __fastcall TForm1::Button1Click(TObject* Sender)
{
! e- R+ o9 Z7 j0 x  z% m+ u; D; t  int x, y;
) j% P& a/ [3 c# }  for (int i = 0; i &lt; 64000; i++)
{
    Randomize();
2 [/ r5 h3 [7 R/ K, B2 }) C! y, ~    for (int j = 0; j &lt; 64000; j++)
      y = random(j);
    x = random(i);
% r+ F6 o# g) l" V$ W& T  }
  Canvas-&gt;TextOut(10, 10, "The Button1Click handler is finished");
. {! j; M; h. a3 |}</P>
<>void __fastcall TForm1::Button2Click(TObject *Sender)</P>
<>{
  int x, y;
  for (int i = 0; i &lt; 64000; i++)
  {
, @9 _4 N$ I# j. @2 u% l, K    Randomize();
    for (int j = 0; j &lt; 64000; j++)
! t8 N& }* t, x    {
, R3 F# S8 D& T3 o      y = random(j);
, ~9 v# Z: y4 a      Application-&gtrocessMessages();
( W0 e& t4 ?0 x$ e    }
    x = random(i);
/ _( @0 z' O" A  }
( u% Q0 x) \7 |4 P8 C3 k  Canvas-&gt;TextOut(10, 10, "The Button2Click handler is finished");
' v, p$ i+ p- E) _$ K2 h: C8 p; H}</P>