1,184
社区成员
发帖
与我相关
我的任务
分享如何将鼠标改为自己想要的图片内容？？VB中控件就提供自定义鼠标图片，但DELPHI中不知如何做？？
如何将鼠标改为自己想要的图片内容？
象VB中控件就提供自定义鼠标图片（将mousepointer设为99-自定义后再在mouseicon 中加载图片即可），但DELPHI中不知如何做？？
请不吝赐教！
象VB中控件就提供自定义鼠标图片（将mousepointer设为99-自定义后再在mouseicon 中加载图片即可），但DELPHI中不知如何做？？
请不吝赐教！
...全文
请发表友善的回复…
发表回复
Linux2001 2003-06-30
- 打赏
- 举报
不能别人是VB程序员楼上就说是悲哀啊！建议楼主先找一本基础的Delphi书籍看完以后然后再来思考这些问题我想应该会好些
reallike 2003-06-30
- 打赏
- 举报
另外，这个是个基本的问题。
除了这位老兄 Hewin(hewin)
的方法之外，还有至少三种方法。
除了这位老兄 Hewin(hewin)
的方法之外，还有至少三种方法。
reallike 2003-06-30
- 打赏
- 举报
唉，VB程序员的悲哀啊。。。。。。
我劝你放弃VB的思想全新的来考虑delphi。
别总是VB可以，delphi不可以？不可以那是不可能的。
除非Borland的程序员们都……
那是你没有找对地方~
如果是VC的程序员就不会问这个。
我劝你放弃VB的思想全新的来考虑delphi。
别总是VB可以，delphi不可以？不可以那是不可能的。
除非Borland的程序员们都……
那是你没有找对地方~
如果是VC的程序员就不会问这个。
walterwl 2003-06-30
- 打赏
- 举报
sign
naughtyboy 2003-06-30
- 打赏
- 举报
做成资源文件
shenjhshen 2003-06-30
- 打赏
- 举报
同意，来晚了
Hewin 2003-06-30
- 打赏
- 举报
//從文件(*.ico等),讀出圖片做光標
procedure TForm1.Button2Click(Sender: TObject);
var
tt:pchar;
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);
screen.cursor:=2;
freemem(tt,size);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
tt:pchar;
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);
screen.cursor:=2;
freemem(tt,size);
end;
end;
