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

[复制链接]

字体大小: 正常放大

powerbuilder

6 主题	1 听众	36 积分

升级 32.63%

该用户从未签到

电梯直达

1^#

发表于 2004-7-15 16:57 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

>与 Visual Basic『DoEvents』同样功能的函式
<

>//Application.ProcessMessages 
<

>void __fastcall TForm1::FormCreate(TObject* Sender)
<

>{
Button1->Caption = "Ignore Messages";
Button2->Caption = "Handle Message";
}
<

>void __fastcall TForm1::Button1Click(TObject* Sender)
{
 int x, y;
 for (int i = 0; i < 64000; i++)
{
Randomize();
for (int j = 0; j < 64000; j++)
 y = random(j);
x = random(i);
 }
 Canvas->TextOut(10, 10, "The Button1Click handler is finished");
}
<

>void __fastcall TForm1::Button2Click(TObject *Sender)
<

>{
 int x, y;
 for (int i = 0; i < 64000; i++)
 {
Randomize();
for (int j = 0; j < 64000; j++)
{
 y = random(j);
 Application-&gt

rocessMessages();
}
x = random(i);
}
Canvas->TextOut(10, 10, "The Button2Click handler is finished");
}

zan