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

powerbuilder

<>与 Visual Basic『DoEvents』同样功能的函式</P>
<>//Application.ProcessMessages </P>
/ j) H9 {+ g# g. y4 m. I<>void __fastcall TForm1::FormCreate(TObject* Sender)</P>
<>{
$ S8 N& ^1 \* D  I  Button1-&gt;Caption = "Ignore Messages";
$ ^$ {# f6 [4 K: q/ P% A$ N# K  Button2-&gt;Caption = "Handle Message";
# e) A9 }  @, R% Y}</P>
<>void __fastcall TForm1::Button1Click(TObject* Sender)
{
2 D: R% `: V" Q" H, M' A  int x, y;
  for (int i = 0; i &lt; 64000; i++)
5 a5 S3 R2 s/ H2 e0 ^. [. p$ z {
    Randomize();
* z4 V, d- I) p: x1 q# e: t6 D2 \% A    for (int j = 0; j &lt; 64000; j++)
/ C$ J/ L& x9 V  T7 T      y = random(j);
% |: R# G( d4 s) g1 t6 b    x = random(i);
6 n! R* `; _/ _$ i  }
  Canvas-&gt;TextOut(10, 10, "The Button1Click handler is finished");
}</P>
5 A4 E2 _1 z" t<>void __fastcall TForm1::Button2Click(TObject *Sender)</P>
! s' }& R& Y+ l% Y, O1 R<>{
0 ?" @* `* V' [2 ^6 t$ P  int x, y;
  for (int i = 0; i &lt; 64000; i++)
2 ^2 [5 S$ r. x  {
4 C9 H0 z% U2 m+ @( y    Randomize();
' T$ b( M/ T$ N4 F& X    for (int j = 0; j &lt; 64000; j++)
* Q: G3 }, G5 a# P    {
/ t& J# w: ~# q# {6 \      y = random(j);
      Application-&gtrocessMessages();
  a% S& X9 w0 V/ t$ b    }
    x = random(i);
1 C! u4 X' k6 Y0 `  }
' O1 Z" R; M/ e  Canvas-&gt;TextOut(10, 10, "The Button2Click handler is finished");
}</P>