有个问题一时无法解决，高手请进！

[baixiao2222]

在窗体上放置一个控件，比如Label1。程序运行后，一般控件及窗体上所显示的鼠标形状是默认的crDefault。现在我希望在Label1的鼠标按下事件当中，把鼠标形状改为其他，比如crHelp。而当鼠标松开的时候，再改回来为crDefault。

这个动作在vb里极好实现，可惜在delphi里却是个问题。

[老之]

在OnMouseUp和OnMouseDown事件里改变就可以了：

procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Screen.Cursor:=crDefault;
end;

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Screen.Cursor:=crHelp;
end;

[postren]

不是什么难题

老之正解

[andyzhou1101]

老之正解

其实象这类问题
你首先要知道鼠标按下、鼠标松开触发了什么事件
再在这些事件里实现你要达到的功能

[baixiao2222]

晕一下，想起来以前解决过这个问题，老是把delphi的一些东西跟vb搞混了。

比如这个问题中，我的意思是要改变的是Label1的鼠标形状，这在vb中很好办，直接修改Label1的鼠标状态即可。

而delphi里是用Screen.Cursor来代替Label1.Cursor。

大意了。谢谢兄弟。马上给分。