application.ProcessMessages的问题

Question

我在一个大循环时用到application.ProcessMessages,但我想更改指针形状 MainForm.Cursor := crHourGlass;不起作用.
如何解决?

Answer 1

你FORM库没有放引进来吧，当然不起作用了

Answer 2

screen.Cursor := crHourGlass行吗？？

Answer 3

screen.Cursor := crHourGlass试过,不行

Answer 4

请看我下面的代码，测试能通过的。
不知道你测试的时候是否类似下面的情况
  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;