Application.ProcessMessages
2011-11-30 15:56
295 查看
//如果有这样一个循环, 是非常可怕的; 因为它完不了, 你得等着.
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i :=
0
to MaxInt
do
begin
Text := IntToStr(i);
end;
end;/
/即使这样也无济于事, 因为在循环期间你执行不了Button2Click
var
b: Boolean;
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
b := True;
for i :=
0
to MaxInt
do
begin
if b
then
Text := IntToStr(i)
else
Exit;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
b := False;
end;
//如果在循环期间...
for
i := 0
to MaxInt
do
begin
if b
then
Text := IntToStr(i)
else
Exit;
{看看还有其他什么事情发生}
end;
//Application.ProcessMessages 就是干这个的!
var
b: Boolean;
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
b := True;
for i :=
0
to MaxInt
do
begin
if b
then
Text := IntToStr(i)
else
Exit;
Application.ProcessMessages;
{!}
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
b := False;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i :=
0
to MaxInt
do
begin
Text := IntToStr(i);
end;
end;/
/即使这样也无济于事, 因为在循环期间你执行不了Button2Click
var
b: Boolean;
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
b := True;
for i :=
0
to MaxInt
do
begin
if b
then
Text := IntToStr(i)
else
Exit;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
b := False;
end;
//如果在循环期间...
for
i := 0
to MaxInt
do
begin
if b
then
Text := IntToStr(i)
else
Exit;
{看看还有其他什么事情发生}
end;
//Application.ProcessMessages 就是干这个的!
var
b: Boolean;
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
b := True;
for i :=
0
to MaxInt
do
begin
if b
then
Text := IntToStr(i)
else
Exit;
Application.ProcessMessages;
{!}
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
b := False;
end;
相关文章推荐
- Application.ProcessMessages的作用
- DELPHI 中的Delay函数,利用GetTickCount和Application.ProcessMessages构建
- ttimer 控件和 application.processmessages 导致的消息列表溢出。
- Application.ProcessMessages
- *Application.ProcessMessages用法
- Application.ProcessMessages
- Delphi 2010,在主窗体中使用Application.ProcessMessages提示错误的解决办法
- Application.ProcessMessages
- Application.ProcessMessages
- Application.ProcessMessages的用法意义
- Application.ProcessMessages
- Application.ProcessMessages; 的重要性
- Application.ProcessMessages
- Application.ProcessMessages
- 复制文件时,如何显示进度条(使用BlockRead函数读取数据,并插入application.ProcessMessages)
- Android Application,Task和Process的区别
- Inter-Process Communication Affects Application Response Time
- Trace Application Engine Processes Using Process Definitions
- android开发之android:process属性_application中onCreate执行多次
- Activity四种启动模式和task、process、Application之间的区别