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 检查注册表键、键值是否存在

Delphi system.masks.matchesmask 简单的正则用法

Delphi 隐藏任务栏程序，取消自动对齐和网格对齐

Delphi tstreamreader tfile assignfile读取文本文件

Delphi 分享三个随机字符串

Delphi xe 制作的萤光时钟，可改作屏保

Delphi xe5 实现获取本地的ip地址

firemonkey使用android的路径信息

Delphi 磁盘类型 getdrivetype

Delphi idtcpclient和idtcpserver主要属性

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

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