如何获取某个控件的光标图片，将它旋转后重新生成一个新的光标？
RT。。。。。
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
MyCursor:TIcon;
begin
// image1.Picture:=nil;
MyCursor := TIcon.Create;
MyCursor.Handle := GetCursor;
image1.Canvas.Draw(0,0, MyCursor);
MyCursor.Free;
end;
取其它控件的鼠标图标，只需要先将鼠标的当前位置保存到一个TPoint变量中，然后设置鼠标到该控件上，接着用上面的代码取光标，然后再从之前保存的TPoint变量中恢复鼠标原来的位置。整个过程会很快，根本不会有太大影响。
[解决办法]
图片的旋转可参考:
http://topic.csdn.net/t/20020826/21/972057.html
