Delphi 中使长循环有响应

首页 | 图形图象 | 编程开发 | 操作系统 | 数据库 | 服务器 | 网络安全 | 人才酷 | 招聘 | 资源 | 酷站 | 顶尖周刊 |

热门文章

编辑推荐

相关文章
从Melissa到Zotob：Windows蠕虫1 从后台得到webshell技巧大汇总 Qmail邮件系统下防止滥用mail re Qmail邮件系统下防止滥用mail re 使用telnet 方式连接Imail的SMTP MDeamon Server 邮件系统迁移完全用RelayFax搭建传真服务器 Qmail邮件系统下防止滥用mail re 隐藏qmail的SMTP help信息保护你 Sendmail的relay用法汇总

您现在的位置：顶尖设计 >> IT学院 >> 编程开发 >> Delphi >> 文章正文

Delphi 中使长循环有响应

作者：wlnh_2004 来源：csdn 点击：更新：2006-12-19

简介：

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

var
  b:boolean;

procedure TForm1.Button1Click(Sender: T //┏━━━━━━━━━━━━━━┓
//┃代码着色：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;
Object);
begin
  b:=true;
  while(b) do
  begin
    Caption:='Working';
    Application.ProcessMessages;
  end;
end;

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