How to use custom cursor in non-client area of window using Delphi

Question

How to use custom cursor in non-client area of window using Delphi

I have a Delphi VCL custom control that intercepts a message WM_NCHITTEST

and returns HTCAPTION

to make the control float in its parent window.

This part works fine, but returning HTCAPTION

also resets my custom cursor to Windows by default when it hovers over that control. Can I use HTCAPTION

and show my custom cursor?

Note. I know how to implement non-use motion control HTCAPTION

and solve the problem with this way

+3

winapi delphi delphi-xe4 cursor

Dalija Prasnikar Dec 24. 14 at 13:12

source to share

1 answer

Sertac Akyuz · Accepted Answer · 2014-12-24T13:17:57+0000

Use a message handler WM_SETCURSOR

:

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

How to use custom cursor in non-client area of ​​window using Delphi

More articles:

How to use custom cursor in non-client area of window using Delphi