delphi中如何改变指标的形状

chenmymic 2004-07-14 10:01:09
如何使窗口、控件等的鼠标指针变为我自己喜欢的喜欢的指针,而且不是原默认的那些指标,如果扩展名为ico的话,可否用上?一定是要cur吗?
...全文
62 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
大鸟吴 2004-07-14
  • 打赏
  • 举报
回复
ico好像是不可以的,你可以找一个软件,把ico做成cur,ani什么的
chenmymic 2004-07-14
  • 打赏
  • 举报
回复
以上的方法都不行啊,各位高手.
tsst 2004-07-14
  • 打赏
  • 举报
回复
使用cursor属性!
aiirii 2004-07-14
  • 打赏
  • 举报
回复
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;
JavaD 2004-07-14
  • 打赏
  • 举报
回复
你可以修改project.res文件来加入你自己的图标
JavaD 2004-07-14
  • 打赏
  • 举报
回复
Screen.Cursor := crHandPoint

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧