//┃代码着色：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;
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
