请教：如何用自己画的光标？(50分)

Q

qlwy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-18

• #1

1.自己画了一个光标
2.用Tools | Image Editor打开.res文件，添加一个光标ABC
3.在unit中加入const crMyCursor = 8;
4.procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'ABC');
Cursor := crMyCursor;
end;
5.Rebuild all projects
但是运行程序后发现并没有任何反应，显示的还是默认光标，请各位指点迷津？

 

Q

qlwy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-18

• #2

补充一点，ABC的图像就是我自己画的那个光标拷贝所得

 

A

amo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-18

• #3

在工程文件中修改
{$r *.res}
为
{$r xxx.res}
将光标资源连接进来

 

Q

qlwy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-21

• #4

接受答案了.

 

K

koolwind

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-06

• #5

你在文件的开头，必须加{$R fase.res},其中，fase就是你所启用的文件名，你知道吗，如下表示：

unit Unit1;

interface
//{$ R face.res}
{$R fase.res}///////////////////这是必须加的////////////////////////
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, TeeProcs, TeEngine, Chart, DbChart;