如何把自己画的光标(*.cur)应用到自己的DELPHI程序中？？？(60分)

L

liufang1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-07

• #1

如何把自己画的光标(*.cur)应用到自己的DELPHI程序中？？？
靠：Screen.Cursor := ？？;

 

L

lwlnic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-07

• #2

简单，可以用windows api函数：
HCURSOR LoadCursorFromFile ( LPCTSTR lpFileName
// pointer to name of cursor file, or system cursor identifier

);
然后你就可以用的拉！

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-07

• #3

下 面 说 明 如 何 将 自定 义 的 一 只 手 的 鼠 标 光 标 赋 给PANEL1 的
CURSOR 属 性。
首 先 使用IMAGE EDITOR 建 立 一 个HAND.RES 的 文 件。 之 后 按 如 下
书 写 程 序代 码：
implementation
{$R *.DFM}
const
Crhand=2;
procedure TForm1.FormCreate(Sender: TObject);
begin
screen.cursors[crhand]:=loadcursor(Hinstance,'hand');
panel1.cursor:=crhand;
end;

 

W

wondering

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-07

• #4

/delphi/images/cursors
先使用ImageEditor将Cursor放到.RES文件中，取名'cursor_1'。如下使用：
{$R c:/programs/delphi/MyFile.res} { MyFile.RES中存有要用的光标 }
const PutTheCursorHere_Dude = 1;
procedure stuff;
begin
screen.cursors[PutTheCursorHere_Dude] := LoadCursor (hInstance,PChar('cursor_1'));
screen.cursor := PutTheCursorHere_Dude;
end;

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-07

• #5

厉害！

 

C

cytown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-08

• #6

呵呵, 以前回答过的问题
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=136706

 

L

Liu JZX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-08

• #7

1、建立资源文件（鼠标名称必须大写，否则不能现实）
2、定义常量，常量个数必须等于要使用的鼠标个数
3、在{$R *.DFM下加入{$R 目录/*.res}
4、用LoadCoursor装入鼠标如下：
screen.cursor[my_cur1]:=LoadCursor(handle,'HAND');
button1.cursor:=my_cur1
LoadCursor只能装入黑白光标loadCursorFromfile课装入彩色光标

 

P

pxlei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-08

• #8

该回答的都答了

 

M

mikecool

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-11

• #9

同意，以上是八仙过海各显神通，都可以满足要求
按照MCSE的说法：可以解决所有的必要要求

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-31

• #10

<font color=green>
liufang1:我觉得你有些过分了，到目前为止，你所以问过的题都是解决后
也不结束，最后都是时间太长由分坛主结束的……
</font>

 

L

liufang1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-31

• #11

多人接受答案了。