看看这个吧
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中多个文件压缩问题
- 有关数据库的问题?
- 用DELPHI向SQLSERVER还原了一个数据库,能不能让它不出现在已有的注册中?
- 类的Create方法内嵌套调用自身的Create方法有没有问题?
- 谁来帮忙解决一下画图方面的问题
- ACCESS数据库一加上密码程序就出错
- 在线等待_动态SQL语句问题
- 我做MDI程序,把子窗體打開了,但關閉的時候只能將子窗體最小化,不能關閉
- 在Tquery控件中设置哪个参数允许修改?
- ********* 25 *********关于Striglist的Object的问题以及StringGrid的颜色问题
- win95上发布ado访问access97的程序,须另装什么程序?
可将你原先存在资源文件中的鼠标资源读出。
读出后就可将程序鼠标设为其序号。