一个关于Delphi中鼠标指针的问题，我没查到帮助，请大家帮我看看啊！！！

Question

procedure TForm1.Button1Click(Sender: TObject);
const
  crMyCursor = -100;
begin
  Screen.Cursors[crMyCursor] :=
    LoadCursorFromFile('C:\WINDOWS\CURSORS\Hourglas.ani');
  Screen.Cursor := crMyCursor;
end;

Answer 1

to 007pro:我的只是载入文件的例子，还可以贴一个载入资源的例子

Answer 2

手指指针
Screen.Cursor := crHandPoint; 
想知道更多可看TCursor or TScreen的帮助procedure TForm1.Button1Click(Sender: TObject);
var 
  Save_Cursor:TCursor;
Begin
  Save_Cursor := Screen.Cursor;
  Screen.Cursor := crHandPoint;  
end;