我以为我懂了,但是还是没有懂!关于LoadCursor请教!!(50分)

Z

zzz

Unregistered / Unconfirmed
GUEST, unregistred user!
我的可执行文件名为Project1.exe,我在其资源文件Project1.res中添加<br>了一个Cursor名字为'CROSS',然后用以下程序企图装入程序:<br>var<br>&nbsp; HC : HCursor;<br>begin<br>&nbsp; HC := LoadCursor(hInstance,'CROSS');<br>&nbsp; Screen.Cursor := HC;<br>end;<br><br>但是未遂,LoadCursor返回的Handle是0,请告知小弟。<br>先谢了。
 
unit Myres;<br><br>interface<br><br>Const<br>&nbsp; crFinger = 1;<br>&nbsp; crHand &nbsp; = 2;<br>&nbsp; <br>implementation<br><br>Uses Forms, Winprocs;<br><br>Initialization<br>&nbsp; Screen.Cursors[crFinger] := LoadCursor( HInstance, 'CUR_FINGER' );<br>&nbsp; Screen.Cursors[crHand] := LoadCursor( HInstance, 'CUR_HAND' );<br>end.<br><br><br>然后, 在其它地方如此使用Screen.Cursor := crFinger;
 
同意 hekai。<br>另外,建议资源最好分开,做新的 *.res,然后 用{$R } 调入。<br>放在 project1.res 中不保险。
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
I
回复
0
查看
585
import
I
顶部