delphi中如何改变指标的形状

[chenmymic]

如何使窗口、控件等的鼠标指针变为我自己喜欢的喜欢的指针,而且不是原默认的那些指标，如果扩展名为ico的话，可否用上？一定是要cur吗？

[JavaD]

Screen.Cursor := crHandPoint

[JavaD]

你可以修改project.res文件来加入你自己的图标

[aiirii]

1.}

procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[crMyCursor] := LoadCursorFromFile('c:\mystuff\mycursor.ani');
Cursor := crMyCursor;
end;


{*****************************************************************}
{2.}
{ by Blodgett}

Const
CURSOR_HOURGLASS = 1;
{...}

procedure TForm1.LoadCursors;
var
h : THandle;
begin
if FileExists('..\Images\YourAnimagedCursor.ani') then
begin
h := LoadImage(0,
'..\Images\YourAnimatedCursor.ani',
IMAGE_CURSOR,
0,
0,
LR_DEFAULTSIZE or
LR_LOADFROMFILE);

if h <> 0 then
Screen.Cursors[1] := h;
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
FCurrentCursor: Integer;
begin
//1st - Load Cursors Information
LoadCursors;
//2nd - Set FCurrentCursor variable
// to current screen cursor.
FCurrentCursor := Screen.Cursor;
//3rd - Set Screen.Cursor to your CONST Value.
// this is your animated cursor.
Screen.Cursor := CURSOR_HOURGLASS;
//4th - Do something ...
sleep(2000);
//5th - Set Screen.Cursor to original cursor.
Screen.Cursor := FCurrentCursor;
end;

[tsst]

使用cursor属性！

[chenmymic]

以上的方法都不行啊,各位高手.

[大鸟吴]

ico好像是不可以的，你可以找一个软件，把ico做成cur，ani什么的