delphi - 如何使用Delphi在窗口非客户区使用自定义光标

Question

我有自定义的 Delphi VCL 控件，它拦截 WM_NCHITTEST 消息并返回 HTCAPTION 以使控件在其父窗口上可移动。

该部分工作正常，但当鼠标悬停在该控件上时，返回 HTCAPTION 也会将我的自定义光标重置为 Windows 默认光标。有什么方法可以使用 HTCAPTION 并仍然显示我的自定义光标？

注意:我知道如何在不使用HTCAPTION的情况下实现控件移动并以这种方式解决光标问题

Answer 1

使用WM_SETCURSOR消息处理程序:

procedure TCustomVCLControl.WMSetCursor(var Message: TWMSetCursor);
begin
  SetCursor(Screen.Cursors[cr..]);
  Message.Result := 1;
end;