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长循环时能响应外部命令的语句2007-12-28 11:42:00
【评论】 【打印】 【字体：大 中 小】 本文链接：http://blog.pfan.cn/otot/31626.html
阅读(3664) | 评论(0)
版权声明：编程爱好者网站为此博客服务提供商，如本文牵涉到版权问题，编程爱好者网站不承担相关责任，如有版权问题请直接与本文作者联系解决。谢谢！
评论