|
//┏━━━━━━━━━━━━━━┓ //┃代碼著色：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; |
|
|
