请看我下面的代码,测试能通过的。 不知道你测试的时候是否类似下面的情况 public { Public declarations } bid : Boolean; procedure test; procedure TForm1.Button1Click(Sender: TObject); begin test; end;procedure TForm1.test; begin while not bid do begin Cursor := crHourGlass; Application.ProcessMessages; end; end;procedure TForm1.Button2Click(Sender: TObject); begin bid:= not bid; Cursor := crDefault; end;
不知道你测试的时候是否类似下面的情况
public
{ Public declarations }
bid : Boolean;
procedure test;
procedure TForm1.Button1Click(Sender: TObject);
begin
test;
end;procedure TForm1.test;
begin
while not bid do
begin
Cursor := crHourGlass;
Application.ProcessMessages;
end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
bid:= not bid;
Cursor := crDefault;
end;