如何修改系统中的鼠标？如点击我的按钮后无论移动到什么地方，都显示crHour，而不只是在我的程序窗体中？

Question

如何修改系统中的鼠标？如点击我的按钮后无论移动到什么地方，都显示crHour，而不只是在我的程序窗体中？

Answer 1

没人关注，不可以完成的任务？还是我没说清？我想实现这一功能，我按下鼠标左键后鼠标变形为某一光标，放开左键后又恢复原来的光标。
我用Screen.Cursor来做，但我发现鼠标移开我的窗体后就不灵。

Answer 2

我用了
       Screen.cursor:=crDrag;
        SetCapture(self.Handle);但我发现鼠标移开我的窗体后就不灵，它会变成其它光标。

Answer 3

请看下面的代码，我的意图是，点击button1，鼠标的光标变为Hourglass，点击Button2后恢复。
我使用SetCapture的目的是：当我的鼠标移出我的程序的Form时，鼠标的光标也是Cross。但是实际情况是，当我的鼠标的光标移到其它程序，如Notepad.exe的区域中时，鼠标的光标变成的Notepad中的另一个光标了。
我如何才能让光标在移出我的Form时，也保持Cross?
SetCapture为什么没起作用，它到度有什么作用？procedure TForm1.Button2Click(Sender: TObject);
begin
  ReleaseCapture;
  Screen.Cursor:=crDefault;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Screen.Cursor:=crHourglass;
  SetCapture(Self.handle);
end;

Answer 4

哈哈，你可以用Api函数试试嘛！