在 Delphi 中调用系统的手形鼠标指针

在主窗体的OnCreat事件中加入下列代码：

var
  C: HCURSOR;
begin
  C := LoadCursor(0, IDC_HAND);
  if C <> 0 then Screen.Cursors[crHandPoint] := C;
end;