Screen.cursor在showModal之前不起作用,为什么

Question

看代码清楚些:
Form1中按钮函数
procedure TForm1.Button1Click(Sender: TObject);
begin
  form2 := Tform2.Create(Application);
  Screen.Cursor := crHourGlass;
  try
    form2.ShowModal();  finally
    form2.Free;
  end;
end;只有当关闭弹出的form2的窗体后,鼠标才会变为crHourGlass.若在Form2中的show中加入Screen.Cursor := crHourGlass;则会出现沙漏,但也是只限于form2的窗体上,这时把鼠标移到form1区域,仍为默认形状.请问这是为什么,我怎么样能让全程序都处于一个沙漏状态.

Answer 1

Form没有ShowModal之前是没有Screen的！

Answer 2

说错了。呵呵我测试了一下，是可以的。
当Form2显示后，Screen上是不显示沙漏的。
begin
  Screen.Cursor := crHourGlass;
  sleep(1000);
  Form2.ShowModal;
  Screen.Cursor := crDefault;
end;