Delphi 中使长循环有响应

[入库：2005年8月18日] [更新：2007年3月25日]

本文简介：选择自 wlnh_2004 的 blog

//┏━━━━━━━━━━━━━━┓
//┃代码着色：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 中使长循环有响应

　　相关方案

本站最佳浏览方式为分辨率 1024x768 IE 6.0（或更高版本的 IE浏览器）