改变鼠标形状，高手帮忙(100分)

penglin3000 · 2002-03-26

for i = 0 to 100
begin
这里改变鼠标形状(怎样写。。。)
end
这里恢复鼠标形状(怎样写。。。)

完颜康 · 2002-03-26

cursor := crHandPoint //你任何想要的
cursor := crDefault //恢复

penglin3000 · 2002-03-26

我试过没有发生变化
cursor := crHandPoint //你任何想要的
cursor := crDefault //恢复
你能否在试试，我会加分的，上次我也加分给你了

Nstar · 2002-03-26

Screen.Cursors[1] := LoadCursorFromFile('c:/baton.cur');
Cursor := 1;
|
| |
| |
--------
相同

//改过了..........

Nstar · 2002-03-26

//从资源文件中提取，事先得自己做一个
//资源文件，再用brcc32.exe 编译一下
//在你的文件中包含进来{$R name.res}
//你查一下怎样做资源文件、编译、使用...挺不错的....
Screen.Cursors[1] := LoadCursor(hInstance,'baton');
Cursor := 1;

Cursor := 1;

完颜康 · 2002-03-26

for i:= 0 to 100 do
begin
button1.cursor := crHelp;
sleep(10);
end;
button1.cursor := crDefault;
可以啊，我试了，实在不行你刷新消息 Application.ProcessMessages 试试

楼上的Nstar大侠能不能说详细点，结合事例说说啊~

linpeng3000 · 2002-03-26

注意要加上Screen，一定变

penglin3000 · 2002-03-26

多人接受答案了。

Nstar · 2002-03-26

1.自己制作资源文件源文件（任何一种编辑文件）
编辑好后以扩展名为.rc保存，下面是个例子
baton CURSOR baton.cur
I1 ICON icone1.ico
2.找到brcc32.exe（自己查找一下）
为了便于执行，将原始文件放在同一目录下
如brcc32.exe,*.cur,*.ico
将sample.rc拖到brcc32.exe上执行一下
生成sample.res（如果没错的话）
3.使用
新建一工程，保存在一目录下，如c:/temp/
将sample.res拷贝到c:/temp/目录下，和工程文件在同一目录下
现在写代码
先将资源文件包含进来
{$R sample.res}
//就在{$R *.DFM}后面加吧
开始使用了，加一按钮，编辑代码
//载入光标
Screen.Cursors[1] := LoadCursor(hinstance,'baton');
Cursor := 1;
//载入图标
icons[0].Handle := LoadIcon(HInstance,'I1');
form1.icon.handle:=h;
4.编译运行
上面代码我没试，应该没问题...

ldaan3 · 2002-03-26

cursor:=cr.....
看help

改变鼠标形状，高手帮忙(100分)

penglin3000

Unregistered / Unconfirmed

完颜康

Unregistered / Unconfirmed

penglin3000

Unregistered / Unconfirmed

Nstar

Unregistered / Unconfirmed

Nstar

Unregistered / Unconfirmed

完颜康

Unregistered / Unconfirmed

linpeng3000

Unregistered / Unconfirmed

penglin3000

Unregistered / Unconfirmed

Nstar

Unregistered / Unconfirmed

ldaan3

Unregistered / Unconfirmed

Similar threads