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

powerbuilder

<>与 Visual Basic『DoEvents』同样功能的函式</P>
<>//Application.ProcessMessages </P>
" }5 `$ {6 N; [; P7 F6 z<>void __fastcall TForm1::FormCreate(TObject* Sender)</P>
<>{
  Button1-&gt;Caption = "Ignore Messages";
% B8 ?+ l9 e2 ]( t$ T1 c  Button2-&gt;Caption = "Handle Message";
}</P>
/ y, h1 ]- o2 {' j' r/ s: \" k% X<>void __fastcall TForm1::Button1Click(TObject* Sender)
9 X. ^! x0 l; Y2 t" z& F{
  int x, y;
  for (int i = 0; i &lt; 64000; i++)
{
    Randomize();
    for (int j = 0; j &lt; 64000; j++)
. o" h' d% E6 Z. x% C. ^2 {      y = random(j);
    x = random(i);
  }
  Canvas-&gt;TextOut(10, 10, "The Button1Click handler is finished");
}</P>
<>void __fastcall TForm1::Button2Click(TObject *Sender)</P>
<>{
. D; ?& k& _- H( ?# y+ k$ e  int x, y;
8 s# d# r6 s1 j7 ^4 v; e! V/ V- w' m  for (int i = 0; i &lt; 64000; i++)
+ }5 R& b% [' e' y. t7 T9 {  {
    Randomize();
    for (int j = 0; j &lt; 64000; j++)
. R- e- p4 t, ~/ b% u$ H4 S& Q    {
! ?* c8 z  Z5 e, K+ k      y = random(j);
" s# i. s' U: f  ~' R# X2 {4 a      Application-&gtrocessMessages();
* N8 n/ w9 ^- |( g' t    }
    x = random(i);
2 m. P. P9 Z( h7 c& {4 v  }
4 q8 S- [6 a: {, ]  [& I) U  Canvas-&gt;TextOut(10, 10, "The Button2Click handler is finished");
}</P>