• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

让彩色光标出现在Delphi程序中_Delphi

Delphi 搞代码 3年前 (2018-08-09) 178次浏览 已收录 0个评论

  在Delphi中用Loadcursor()得到的光标只有黑白两色,怎样在程序中得到彩色光标呢?笔者尝试制作了以下程序:
  方法一 用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);

http://www.gaodaima.com/?p=65803让彩色光标出现在Delphi程序中_Delphi

  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′这个图标一定要在资源文件中,否则会出现异常。

欢迎大家阅读《让彩色光标出现在Delphi程序中_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址