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 生成可以控制最大32位随机英文数字字符串

Delphi 倒计时对话框

Delphi isvaliddatetime、isvaliddate、isvalidtime、isvaliddateday ... 判断时间是否合法

Delphi 键盘钩子的简单应用

Delphi工具之winsight

Delphi 取整算法集合

monthdays：给出一个月的天数

Delphi经常用到的公共代码(tools.pas)

Delphi之format函数

Delphi 获取系统服务列表

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

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