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

powerbuilder

<>与 Visual Basic『DoEvents』同样功能的函式</P>
1 {2 g2 a/ m7 \' \1 X. [<>//Application.ProcessMessages </P>
<>void __fastcall TForm1::FormCreate(TObject* Sender)</P>
<>{
  Button1-&gt;Caption = "Ignore Messages";
  Button2-&gt;Caption = "Handle Message";
) b+ O* m" q6 |. o2 v7 I2 E4 `}</P>
<>void __fastcall TForm1::Button1Click(TObject* Sender)
; ~2 f2 x& l: k; `+ d2 h/ r{
  int x, y;
3 e' M. D, q: H  for (int i = 0; i &lt; 64000; i++)
: C3 V, _# ^4 E+ o {
    Randomize();
    for (int j = 0; j &lt; 64000; j++)
( c8 o& w/ `  t0 Q* d      y = random(j);
    x = random(i);
" W1 q1 v, F. G% E! a( c' |0 \5 R  }
  Canvas-&gt;TextOut(10, 10, "The Button1Click handler is finished");
% \* b8 `# A, E/ I}</P>
7 y0 A! g& Y) x  W. q4 _8 T  m<>void __fastcall TForm1::Button2Click(TObject *Sender)</P>
0 m' a  A' @4 k! a% N) b<>{
  int x, y;
$ V# K1 j* q$ ?& A) W6 i5 a9 U  for (int i = 0; i &lt; 64000; i++)
- _* A- U+ A2 B9 O8 l6 K  {
    Randomize();
8 p5 A: c( T8 n& i& w( ~  g3 ~: k    for (int j = 0; j &lt; 64000; j++)
    {
      y = random(j);
      Application-&gtrocessMessages();
+ _+ O* e2 k. ~    }
6 i5 J% {* p* z7 L0 K    x = random(i);
) ]5 R" V8 u* L! e; Y/ e5 `9 H  }
  Canvas-&gt;TextOut(10, 10, "The Button2Click handler is finished");
}</P>