如何将鼠标改为自己想要的图片内容？？VB中控件就提供自定义鼠标图片，但DELPHI中不知如何做？？

kaobuzhu 2003-06-10 12:53:34

如何将鼠标改为自己想要的图片内容？
象VB中控件就提供自定义鼠标图片（将mousepointer设为99-自定义后再在mouseicon 中加载图片即可），但DELPHI中不知如何做？？
请不吝赐教！

...全文

80 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

Linux2001 2003-06-30

打赏
举报

不能别人是VB程序员楼上就说是悲哀啊！建议楼主先找一本基础的Delphi书籍看完以后然后再来思考这些问题我想应该会好些

reallike 2003-06-30

打赏
举报

另外，这个是个基本的问题。

除了这位老兄 Hewin(hewin)

的方法之外，还有至少三种方法。

reallike 2003-06-30

打赏
举报

唉，VB程序员的悲哀啊。。。。。。

我劝你放弃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;