我是否仅限于 Delphi 7 下 Controls.pas 中定义的光标编号？

Question

我在 Windows 7 下使用 Delphi 7 下载文件。

我想在下载过程中更改光标。

我设置了 Screen.Cursor := crHourGlass; ，但是，在查看 Controls.pas 中的常量光标编号后，我想知道是否还有其他数字我可以使用将光标更改为（我不想将光标添加到我的资源文件中，我只想使用无需添加资源即可使用的标准数字 ）。

Answer 1

其他数字是否有意义
完整光标

否。除了内置光标常量之外的其他数字将生成默认光标它与 TCursor(crDefault) 相同（换句话说 - HCURSOR(Screen.Cursors[crDefault])）。这些内置游标驻留在应用程序资源中，并在 VCL 启动时预加载。要添加自定义光标，您必须添加 CURSOR 资源，然后加载它并将其添加到 VCL。

procedure TForm1.FormCreate(Sender: TObject); platform;
const
  crCustom = 42;
var
  Cursor: HCURSOR;
begin
  Cursor := LoadCursor(HInstance, 'CUSTOM');
  Win32Check(Cursor <> 0);  // required error check
  Screen.Cursors[crCustom] := Cursor;
  { Done, newly added crCustom is ready to use }

  Self.Cursor := crCustom; // for example - lets show custom cursor

  { also, TScreen object will manage resource handle }
  { and perform cleanup for you, so DestroyCursor call is unnecessary }
end;

间接游标构造的更复杂示例 注意 ：示例有很多缺陷：1) DestroyIcon 调用是错误的 2) 如果在所有 API 调用之后进行错误检查，他们会注意到这一点

Answer 2

“标准数字”（crHourglass、crDefault 等）是 Delphi 的 VCL 提供的预定义光标。您可以定义自己的定义并通过 Windows API 从资源或文件将它们加载到应用程序中，但是没有任何神奇的未发布的 TCursor 定义（或杂散数字）具有任何意义。尝试将 Screen.Cursors[] 设置为未知数字而不首先加载光标将导致数组越界错误，最坏的情况是访问冲突导致显示默认光标（请参阅 Forms.pas 中的 TScreen.GetCursors）。

简单说明：TCursorRec 在 VCL 源代码中定义为包含指向下一条记录的指针、索引和游标句柄 (HCURSOR) 的记录。它基本上是一个单链表，当您通过访问 Cursors 列表来请求游标时，VCL 会从第一项开始遍历列表，然后依次逐步浏览，直到找到符合以下条件的索引：与您请求的索引相匹配（此时它将光标设置为该项目的 HCURSOR 值），或者确定未分配您请求的索引，在这种情况下它返回默认光标。

Answer 3

crHourGlass 的类型为 TCursor，它是一个整数别名（或多或少）。它是一个索引，可用于设置库存游标。

您可以使用添加游标，

Screen.Cursors[Number] := ...   needs to be a HCURSOR.

因此如果您有新游标的句柄，则可以在 Delphi 中使用它。

请注意，crXXX 常量和 TCursor 类型是在 Controls 中定义的，而 Screen 类是在 Forms 中定义的。所以你可以自己看看代码。