Delphi 中使长循环有响应

本文整理自网络，侵删。

  //┏━━━━━━━━━━━━━━┓
//┃代码着色：CodeColor v1.0 ┃
//┃来自：悄然无声的 Blog ┃ 
//┗━━━━━━━━━━━━━━┛

var
b:boolean;

procedure TForm1.Button1Click(Sender: TObject); 
begin 
b:=true; 
while(b) do 
begin 
Caption:='Working'; 
Application.ProcessMessages; 
end; 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
b:=false; 
Caption:='Stop';
end;  

相关阅读 >>

Delphi tfinddialog treplacedialog对话框在memo中的使用

Delphi 在桌面上画图

Delphi android device information

Delphi原生方法取得文件的md5

Delphi 判断 中文字符

Delphi中的memo顶部添加行

Delphi 最全_日期格式_dateutils时间单元说明

Delphi idhttp使用代理ip

Delphi10.3模拟读取百度网页，并读取相关头部信息

Delphi gridpanel percent百分比设置

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 中使长循环有响应