使用LoadCursor或LoadCursorFromFile函数调入光标。然后调用该光标即可。
Eg:
Screen.Cursor[2] := LoadCursor(Hinstance ,'test') ;
Form1.Cursor := 2 ;
注:Test为资源字符串
Eg:
Screen.Cursor[2] := LoadCursor(Hinstance ,'test') ;
Form1.Cursor := 2 ;
注:Test为资源字符串
解决方案 »
- 200分求delphi跨进程窗口子类化例子
- 怎样关闭MDIChildren窗体??
- 俺正在做一个收银系统,,收银部分要求支持刷银行卡..不知要怎么做,,请大家指点..有相关代码最好....进者有分...
- 那位大侠能告诉我rtl是什么?我安装了一套源码,报错说找不到rtl单元,我该怎么找到rtl单元并安装上呢?
- delphi8中如何调用Activex控件面板?
- 紧急寻求dxfBrowseDirectoryDlg控件
- 请问如何在ToolBar的按钮上添加文字
- delphi创建的dll可以输出变量吗?
- 高手请进!什么函数或软件能实现在不同的应用程序的取出光标停留的地方的图象或字体的颜色?
- 如何将新浪网演示的客机撞击世贸中心的flash保存到硬盘上?
- 怎么让应用程序不出现在任务栏??
- 程序中拖动控件
用Image Editor编辑一个鼠游标(Fild | New | Resource File)新建一个 CURSOR_1 的 CURSOR, 设定好它的 Hot Spot(Cursor | Set Hot Spot)存档时注意要和建立的Project存在同一个目录
在本例我们先假定为 MyCursor.res
二. 程序部分
定义一个常数crMyCursor, 这个常数您必须设成大於零 的任何整数, 以 LoadCursor() 函数将自订的鼠标资源
load 进来, 以下为源代码:
// unit.pas
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes,
Graphics, Controls, Forms, Dialogs;
const
crMyCursor = 1; (* 宣告一个常数 *)
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
{$R mycursor.res}//这行$R不可少, 否则自订的鼠游标就出不来了
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
//将鼠标资源 load 进来
Screen.Cursors[crMyCursor] := LoadCursor (hInstance,'CURSOR_1');
Cursor := crMyCursor;//指定 form1 的 cursor 为自订鼠标
Button1.Cursor := crMyCursor;//指定Button1的cursor为自订鼠标
end;
end.