关于自定义鼠标?
大家好,

我用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 ');//调用