|
|
|
|
Delphi 中使长循环有响应 |
|
|
|
作者：未知 来源：月光软件站 加入时间：2005-2-28 月光软件站 |
//┏━━━━━━━━━━━━━━┓
//┃代码着色：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; | 
|
|
相关文章：相关软件： |
|
本类阅读TOP10