看看这个吧
const
crMyCursor = 5;
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'NewCursor');
Cursor := crMyCursor;
end;
const
crMyCursor = 5;
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'NewCursor');
Cursor := crMyCursor;
end;
解决方案 »
- delphi 实现图片预览的问题
- 线程池
- 自定义控件的属性页中链接其它控件的方法
- 能不能将WebService封装成DLL???????????????
- delphi菜鸟的问题
- 用adotable 与dbgrid来显示数据,如何才能在增加一条数据之后马上在dbgrid中显示出来呢,我用adotable1.refresh为什么不行啊?
- 我在用toolbar空件上右击选new button然后我想调这个new button的大小怎么调啊谢谢我急等
- 能帮帮我吗?是关于我的毕业设计的,有那位高手做过??
- 加分
- 我同过BDE使用acess, 如何去处用户和密码?
- ********* 25 *********关于Striglist的Object的问题以及StringGrid的颜色问题
- win95上发布ado访问access97的程序,须另装什么程序?
可将你原先存在资源文件中的鼠标资源读出。
读出后就可将程序鼠标设为其序号。