关于自定义鼠标?
大家好,
我用IMAGE EDITOR自制了一个mycursor.res,作好后,打开可见是这样的,contents--> cursors--> Cursor1,这个Cursor1,我做了一个图片.
然后把这个mycursor.res保存在应用程序根目录下.
在form里这样写:
....
uses
windows, Messages, sysutils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, GridsEh, DBGridEh, ExtCtrls, RzPanel, RzSplit,
ComCtrls, StdCtrls, Buttons, ToolWin, ADODB, DB, DBClient, ImgList,
GIFImage;
const
crmycursor = 1; //这个地方定义一个常量
....
var
formasmsetup: Tformasmsetup;
{$R mycursor.res} //这个地方引用资源文件
implementation
uses publicvar, PublicModel, PublicdataModel;
{$R *.dfm}
.......
procedure Tformasmsetup.Image1Click(Sender: TObject);
begin
screen.Cursors[crmycursor] := loadcursor(hinstance, 'mycursor ');//调用
screen.cursor := crmycursor;//使鼠标变成自定义
// screen.Cursor := crhelp; //用默认的试验
end;
运行结果是,不成功,如用默认的可以,不知我的错误在哪里?是mycursor.res文件做得不对?还是代码写得不对?
谢谢!
[解决办法]
或者把
screen.Cursors[crmycursor] := loadcursor(hinstance, 'mycursor ');
改为
screen.Cursors[crmycursor] := loadcursor(hinstance, 'Cursor1 ');//调用
