delphi替换光标

 Screen.Cursors[crHandPoint] := LoadCursor(0, IDC_HAND);