如何改变button上的光标？

[whaoph]

我在form起来的时候，将光标设置为漏斗，Screen->Cursor = crHourGlass
但我想在光标移到button上的时候，将光标改为crArrow，而离开button的时候又变成crHourGlass；我试着在MouseMove里写代码，但我的form上有很多控件，我总不至于在每个控件里都写
请教各位大侠，有没有什么简单的方法实现？

[TangZH001]

在Object Inspecter中设置Button的属性Cursor=crHourGlass

[TangZH001]

在Object Inspecter中设置Button的属性Cursor=crArrow
设置Form的属性Cursor=crHourGlass

[foxbill_csdn]

2种方法：
1）设置Button的cursor属性为crHourGlass。
2）在MouseMove事件中加入如下代码

void __fastcall TForm1::Button1MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
TButton *pBtn;

pBtn = dynamic_cast<TButton*>(Sender);
if(pBtn)
pBtn->Cursor = crHourGlass;
}

[大大怪老张]

同意楼上

[whaoph]

各位大侠，不行啊
用Screen->Cursor = crHourGlass改变鼠标以后，连带form上所有的components的鼠标都改变了，并且它强制覆盖了button的原来的鼠标属性；
而且一旦在button的mousemove事件中改变鼠标的话，当鼠标移到button外时，就恢复不到原来的样子了
而且form上还有很多其他的控件

[shadowstar]

可不可以把Form的Cursor设成crHourGlass
而把Button的Cursor设成crArrow

[whaoph]

申明一点：用Screen->Cursor改变鼠标以后，所有控件的原来鼠标属性都将失效

[phenix_jjg]

最简单的方法是将button的cursor属性值改变为crArrow，这种方法不影响其它的光标形状，只有当光标移动到button上时，光标才变成crArrow。
再有一种方法就需要你去编写一些代码了，去控制光标的形状。这种方法比较麻烦，不建议使用，最好还是使用上面的那种方法。

[whaoph]

希望在运行过程当中改变鼠标

[Chimae]

Screen->Cursor = crHourGlass???
你不能用Form->Cursor = crHourGlass，这样你的Button就可以随你设置了！