能否作出一个在PANEL里时显示的cursor光标,,即当进入PANCEL时光标就变成自己新设计的图案了(50分)

  • 主题发起人 主题发起人 qd.pd
  • 开始时间 开始时间
Q

qd.pd

Unregistered / Unconfirmed
GUEST, unregistred user!
能否作出一个在PANEL里时显示的cursor光标,,即当进入PANCEL时光标就变成自己新设计的图案了。 要求进入PANEL里时显示的是自己设计 的光标图案。
查以前的资料,在FORM里面可以改成为自己设计 的光标图案,,但是在PANEL里面就失效了,,俺照葫芦画飘 想做出PANCEL的,,却行不通,,,在此请高手赐招[:)]
(就50分吧,,怪疼人的,,俺就才没几分的)
 
$R TEST.RES}
const
crMycur1 = 1;
crMycur2 = 2;
procedure TForm1.FormCreate(Sender: TObject);
var
bmp : TBitmap;
ico : TIcon;
begin
Screen.Cursors[crMycur1] := LoadCursor(Hinstance,'CUR1');
Screen.Cursors[crMycur2] := LoadCursor(Hinstance,'CUR2');
Label1.Cursor := crMycur1;
bmp := TBitmap.Create ;
bmp.Handle := LoadBitmap(Hinstance,'BMP1');
Image1.Width := bmp.Width + 10;
Image1.Height := bmp.Height + 10;
Image1.Canvas.Draw(4,8,bmp);
bmp12 := 1;
ico := TIcon.Create ;
ico.Handle := LoadIcon(Hinstance,'IN1');
Icon := ico;
end;
procedure TForm1.Button1Click
 
{$R cursor.res}
procedure TForm1.Button1Click(Sender: TObject);
begin
Screen.Cursors[0]:=LoadCursor(HINSTANCE,'MYCURSOR');
Panel1.Cursor:=1;
end;
 
bmp12 := 1;
这是什么??
'CUR1'是指在资源文件里建立的图标吗?
 
谢谢 蓝叶菱and smokingroom兄,,问题解决的差不离了,,,但是我想问一下,,这些CURSOR,只能自己画吗,,,如果想用别人的漂亮的呢,,
因为我要将它建 立在资源文件里,,,如果在IMAGE edit里 new.....,,则只能自己画一个CURSOR
如果是OPEN 一个CURSOR图标,,可是不能存放到资源文件里去,,是这样子吗??
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部