怎么把鼠标变成一把小手，再变回来？送分~！！

Question

Cursor设为crHandPoint可以变成小手，但是又怎么变回去我也不知道

Answer 1

当你需要是小手的时候用下列代码：
    YourControlName.Cursor:=crHandPoint;
当你要变回来的时候用下列代码：
    YourControlName.Cursor:=crDefault;不知道这是不是你想要的东西？

Answer 2

to ljpxyxc(李莫愁) 
ControlName应该是个什么东西啊？
我想在鼠标移到某个控件上就变，移开则还原。
再麻烦一下吧~

Answer 3

hazimao (老猫) 把问题说明白点

Answer 4

比如你想是label,那就是
label.Cursor:=crHandPoint;
label.Cursor:=crDefault;

Answer 5

var  MyCursor : variant;...MyCursor := Screen.Cursor;Screen.Cursor := crHandPoint;
....  Do Whatever you like here.......Screen.Cursor := MyCursor;

Answer 6

YourControlName 是指你的控件名称，
要实现你说的功能可以试一下这样：
比如你要在Button1上实现这个功能，针对Button1的 OnMouseMove 编程,只用一行就可以了：
    Button1.Cursor:=crHandPoint;
试一下