我想使用比较特殊的游标，delphi自带的那些（cursor属性）我觉得没有意思，我想换一些别的，怎么才能实现呢？难道这个问题绝顶高难，一般人不会！ (55分)

X

xiaoxiami0

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #1

我选择控件的cursor属性，也就那几种，没有意思，我想换一换！

 

K

kkyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #2

用光标资源API啊。

 

X

xiaoxiami0

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #3

kkyy大侠：
再讲明白一些吧！

 

X

x_coffee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #4

举个例子吧！

 

K

kkyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #5

请下载Hotdog的什么Delphi什么大全，或搜索大富翁离线浏览包，应该说的很多。
如：http://www.delphibbs.com/delphibbs/dispq.asp?lid=993163

 

R

reallike

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #6

delphi不是有可以读的函数吗？

 

P

PFans

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #7

procedure TForm1.Button1Click(Sender: TObject);
var
ttchar;
size:integer;
s:string;
begin
if opendialog1.Execute then
begin
Size:=length(opendialog1.filename);
getmem(tt,size);
s:=opendialog1.FileName;
strpcopy(tt,s);
screen.Cursors[2]:=loadcursorfromfile(tt);
form1.cursor:=2;
freemem(tt,size);
end;
end;
//把OpenDialog中的filter设为 *.cur

 

J

juli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #8

绝顶难？怎么会？
用Borland ImageEditor 做个图标资源（MyCursor.RES）
{$R MyCursor.RES}
const crHand = 1;
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[crHand]:=LoadCursor(HInstance,'Cursorname');
Form1.Cursor:=crHand;
end;

 

X

xiaoxiami0

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #9

接受答案了.