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

powerbuilder

<>与 Visual Basic『DoEvents』同样功能的函式</P>
5 j% q. f  q& N3 n1 r& S& D! R0 Q' G<>//Application.ProcessMessages </P>
. R9 n! \2 Y6 H# |7 J" Z) j/ F! O<>void __fastcall TForm1::FormCreate(TObject* Sender)</P>
<>{
0 Y9 u. o5 b* q3 c2 Y, I6 y* e1 u  k" N  Button1-&gt;Caption = "Ignore Messages";
& y' `, r( w6 q$ }) r  Button2-&gt;Caption = "Handle Message";
) L; c; r$ w& x, t* Q; L2 c}</P>
<>void __fastcall TForm1::Button1Click(TObject* Sender)
1 {/ c' d5 V5 |# q1 D8 q6 y{
# f* j4 q  @0 K0 }/ j0 X8 D) p$ H  int x, y;
4 S0 o* T5 ?9 I0 `  for (int i = 0; i &lt; 64000; i++)
{
4 a* ~+ o1 Z3 t0 n0 y+ [1 v' V! l    Randomize();
    for (int j = 0; j &lt; 64000; j++)
# [- t) i: p9 r& Z4 _) S      y = random(j);
    x = random(i);
+ Q9 H+ t& U! X+ p# f& B7 u  }
  Canvas-&gt;TextOut(10, 10, "The Button1Click handler is finished");
}</P>
<>void __fastcall TForm1::Button2Click(TObject *Sender)</P>
$ r  h7 A0 e9 U" L<>{
0 n8 W2 X6 R7 r7 [" B7 X0 ^  int x, y;
  for (int i = 0; i &lt; 64000; i++)
  {
: ^: \8 n6 O8 F/ X7 _9 A3 _; @    Randomize();
    for (int j = 0; j &lt; 64000; j++)
* z8 J0 A1 K" ?1 N3 E1 M4 w9 n9 k    {
      y = random(j);
      Application-&gtrocessMessages();
5 b- [) B% l( u) J    }
3 d, W0 N1 U4 O, P, o% L  g    x = random(i);
1 m, `0 _$ D$ @- V  }
  Canvas-&gt;TextOut(10, 10, "The Button2Click handler is finished");
}</P>