怎么画出鼠标指针？(100分)

H

hlsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-18

• #1

怎么画出鼠标指针？
如何将Cur文件画到image里

 

Z

zhu_jy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-19

• #2

是不是截屏时把鼠标也保存下来？

 

R

resun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-19

• #3

不要管什么cur文件，简单的画线好，试一下就知道了

 

B

baidie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-19

• #4

你直接话不就得了吗，要如何画

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-19

• #5

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
var
i: TICON;
begin
i := TICON.Create;
i.Handle := screen.Cursors[crDefault];
Canvas.Draw(3, 3, i);
freeandnil(i);
end;

end.

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-19

• #6

win2000
98下可能有问题

 

H

hlsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-21

• #7

我的目的是画出指定的鼠标文件，如'c:/aa.cur'

 

特

特尔斐

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-18

• #8

image1.Picture.LoadFromFile('c:/aa.cur')

 

特

特尔斐

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-18

• #9

不好意思，错了。

 

特

特尔斐

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-18

• #10

现在行了：
procedure TForm1.Image1Click(Sender: TObject);
var
cr: HICON;
begin
if dlgOpen.Execute then
begin
Image1.Canvas.FillRect(image1.Canvas.ClipRect);
cr := LoadImage(HInstance,PChar(dlgOpen.FileName),IMAGE_CURSOR,LR_DEFAULTSIZE,LR_DEFAULTSIZE,LR_LOADFROMFILE);
DrawIcon(image1.Canvas.Handle,0,0,cr);
end;
end;

 

H

hlsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-04

• #11

接受答案了.