网页功能: 加入收藏 设为首页 网站搜索  
Delphi 中使长循环有响应
发表日期:2005-02-02作者:wlnh_2004[转贴] 出处:CSDN  

//┏━━━━━━━━━━━━━━┓
//┃代码着色: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 中使长循环有响应
本类热点文章
  DBGrid 应用全书
  用户界面设计的技巧与技术
  TWebBrowser编程简述
  初探Delphi 7 中的插件编程
  获取主板BIOS的信息
  网卡的远程网络唤醒
  Delphi 2006简介(Dexter)
  用Delphi开发数据库程序经验三则
  在Windows2000中拦截Ctrl+Alt+Del
  编写TAPI应用程序
  利用语音Modem实现电话点播和留言功能
  Delphi面向对象编程的20条规则
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2018 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00522