我有自定义 Delphi VCL 控件，它拦截 WM_NCHITTEST 消息并返回 HTCAPTION 以使控件在其父窗口上可移动。
这部分工作正常，但返回HTCAPTION 也会在将鼠标悬停在该控件上时将我的自定义光标重置为 Windows 默认光标。有什么方法可以使用HTCAPTION 并仍然显示我的自定义光标？
注意：我知道如何在不使用HTCAPTION 的情况下实现控制移动并以这种方式解决光标问题
【问题讨论】：
标签： delphi winapi cursor delphi-xe4
使用WM_SETCURSOR 消息处理程序：
procedure TCustomVCLControl.WMSetCursor(var Message: TWMSetCursor);
begin
SetCursor(Screen.Cursors[cr..]);
Message.Result := 1;
end;
【讨论】：
if Message.HitTest <> HTCAPTION then SetCursor(...); 会不会更好？
HTCAPTION，因此无需额外测试，否则您是正确的。