声明 procedure HitTest(var msg:TWMNCHITTEST);message WM_NCHITTEST;
procedure TForm1.HitTest(var msg:TWMNCHITTEST);
begin
inherited;
if msg.Result=HTLEFT then SetCursor(LoadCursor(0,IDC_HAND));
end;
如果Cursor在资源中,就换成SetCursor(LoadCursor(HInstance,'myCursor'));