在IMAGE的ONMOUSEOVER事件中改变MOUSE图标资源。
解决方案 »
- 如何在字符串最后一位加1,并且长度不变
- 奇怪了adoquery post方法批量导入jpeg图片(文件)到access ole字段 发现有的图片没有保存上难道post大文件需要时间? 代码如下:
- 请教关于TRY异常抛出的调试问题
- 怎样使dephi的日期控件,点击下拉框后自动显示到系统的日期?
- 关于Windows服务的问题,急啊!!!
- 一个难度大的报表设计问题已经困惑我好多天啦,请做答,谢谢!,
- 向大虾求教?
- 请问我如何在DBGID中反选记录?
- 急:delphi打印的问题:每次联机后必须先用别的软件打印一次,delphi程序才能正常打印
- 大家快来看!!!如何在EDIT中使用右对齐?
- 在查询数据库表时怎样限制记录的个数
- 请教高手:关于以 .mdb 为扩展名的数据库的问题?
如果不是DELPHI本身自带的鼠标图标,方法如下.
方法一 用Loadcursorfromfile()从外部调入图标作为光标
Loadcursorfromfile()函数可以读*CUR,*ICO,*ANI为后缀的文件作为光标,其中ICO为彩色图标格式(可用Image Editor制作),ANI为动画光标格式。以下为打开一图标作为光标的演示程序段,当光标移动到测试区域内光标会变成选定的图案;
{设:opendialog1:Topendialog;Bitbtn1:Tbitbtn}
procedure TForm1.BitBtn1Click(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);
bf.cursor:=2;
freemem(tt,size);
end;
end;
方法二 从资源文件加载彩色光标
用方法一发送程序时必须包含*CUR文件,因而从资源文件中加载彩色光标是更可行的方法。用图标存放彩色光标,使用时把图标存入临时文件,用Loadcursorfromfile()从临时文件读出彩色光标。
程序段:
procedure ZloadfromResourse(screenindex:integer;name:Pchar);
var td:ticon;
begin
try
td:=ticon.Create;
td.Handle:=LoadIcon(Hinstance,name);
td.SaveToFile(′temp.cur′);
screen.Cursors[screenindex]:=loadcursorfromfile(′temp.cur′);
deletefile(′temp.cur′);
finally
td.free;
end;
end;
此程序把名字为name的图标变为序号为screenindex的光标;
例:
ZloadfromResourse(2,′myicon′);
Form1.cursor:=2;
注意:′myicon′这个图标一定要在资源文件中,否则会出现异常。
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image1.Cursor :=crHandPoint;
end;然后离开IMAGE的时候在把CURSOR改为crDEFAULT就可以了