如何在程序运行时隐藏鼠标？

Question

用API函数 SetCursor
var
  OldHCursor: Integer; 
...
  OldHCursor := SetCursor(nil); //隐藏鼠标并保存当前鼠标句柄
...
然后在你的OnClick或OnMouseMove里恢复
  SetCursor(OldHCursor);

Answer 1

sorry,写错一句
>> OldHCursor := SetCursor(0);

Answer 2

哎，完全搞错了。应该用ShowCursor(Boolean) : -)

Answer 3

把Cursor属性设成crNone不就行了。

Answer 4

{隐藏鼠标光标}
ShowCursor(False);
{隐藏鼠标光标}
{移动鼠标光标}
SetCursorPos(X,Y);
{移动鼠标光标}

Answer 5

API函数
ShowCursor
The ShowCursor function displays or hides the cursor. int ShowCursor(
  BOOL bShow   // cursor visibility
);
Parameters
bShow 
[in] Specifies whether the internal display counter is to be incremented or decremented. If bShow is TRUE, the display count is incremented by one. If bShow is FALSE, the display count is decremented by one. 
Return Values
The return value specifies the new display counter. 注意：使用ShowCursor(FALSE)
同ShowCursor(TRUE)次数应该相同，否则，可能的不到正确结果。