如何在软件中显示鼠标指针图象（*.cur）？ (100分)

H

hlsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-13

• #1

如何在软件中显示*.cur,*.ani？Image控件好像不支持！

 

H

huazai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-20

• #2

实改变鼠标的形状？还是。。。。没看懂！

 

L

like

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-21

• #3

建立一工程，窗体上放一Button控件、OpenDialog控件
procedure TForm1.Button1Click(Sender:Tobject);
var
pschar;
size:integer;
ss:string;
begin
if OpenDialog1.Execute then
begin
size:=Length(OpenDialog1.FileName);
GetMem(ps,size);
ss:=OpenDialog1.FileName;
StrpCopy(ps,ss);
Screen.Cursors[2]:=LoadCursorFromFile(ps);
Form1.Cursor:=2;
FreeMem(ps,size);
end;
end;

 

H

hlsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-21

• #4

就是用类似image的控件显示出cur指针的形状。不是改变软件中的指针。

 

特

特尔斐

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-18

• #5

太简单了！如下：
procedure TForm2.Button4Click(Sender: TObject);
var
h: HICON;
begin
h := LoadCursorFromFile(PChar(Edit2.Text));
if h <> 0 then
DrawIcon(Image1.Canvas.Handle, 0, 0, h);
end;

 

特

特尔斐

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-18

• #6

还有一种方法：
procedure TForm2.Button4Click(Sender: TObject);
var
h: HICON;
begin
h := LoadCursorFromFile(PChar(Edit2.Text));
if h <> 0 then
image1.Picture.Icon.Handle := h;
end;
对比一下，有点不同的！[]

 

H

hlsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #7

怎么样画出ani呢

 

特

特尔斐

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #8

用我上面的方法能画出ani文件在Windows资源管理器中显示的那一帧。