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;
【评论】 【打印】 【字体：大 中 小】 本文链接：http://blog.pfan.cn/otot/31626.html
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;
阅读(3695) | 评论(0)
版权声明：编程爱好者网站为此博客服务提供商，如本文牵涉到版权问题，编程爱好者网站不承担相关责任，如有版权问题请直接与本文作者联系解决。谢谢！
评论