//┏━━━━━━━━━━━━━━┓ //┃代码着色: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; |
|