Delphi 6光标没有改变

Question

如果我有一个设置 Cursor := crHourglass, Application.ProcessMessages 的 ButtonClick 事件，然后使用 TOpenDialog 选择一个文件，然后执行一些 CPU 密集型操作，则光标的行为会有所不同，具体取决于它是否位于现有控件之上当打开对话框关闭时。如果光标在控件上方，则光标保持为沙漏；如果它完全在应用程序之外，然后在密集过程仍在进行时移入该区域，则光标将保持为箭头。一个人不能点击或做任何事情，所以让用户感到困惑的是得到一个箭头但不能用它做任何事情。

单步调试调试器显示光标在它应该在的任何地方都是-11。使用 Screen.Cursor 代替 Cursor 具有相同的效果。

有解决办法吗？

procedure TMyForm.LoadButtonClick(Sender: TObject);
begin
  Cursor := crHourglass;
  Application.ProcessMessages;
  if OpenDialog.Execute then begin
    // Do something intensive
    // Cursor = crHourglass here but what is displayed is different
  end;
  Cursor := crDefault;
end;

Answer 1

首先，确保仅在 CPU 密集型操作处于活动状态时设置光标。选择文件时不要改变光标——毕竟你永远不会看到任何其他程序这样做。

其次，当您在代码中说Cursor 时，您指的是 form's 属性。您可能希望改用Screen.Cursor，以便整个程序显示相同的光标。

第三，无需拨打Application.ProcessMessages。无论如何，只要您显示一个对话框，消息就会被处理，此外，您不需要处理任何特定的消息。

最后，考虑使用 try-finally 块来保护游标更改，以便处理中的问题不会使游标处于错误状态：

if OpenDialog.Execute then begin
  Screen.Cursor := crHourglass;
  try
    // TODO: something intensive
  finally
    Screen.Cursor := crDefault;
  end;
end;

如果该操作确实占用了大量时间，请考虑将其移至另一个线程。这样您就不必担心 GUI 没有响应，因此您一开始就不必更改光标。