知识大全 Delphi学习使用资源文件-Ico

Posted 2022-07-22 文件

篇首语：金鞍玉勒寻芳客，未信我庐别有春。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi学习使用资源文件-Ico相关的知识，希望对你有一定的参考价值。

Delphi学习使用资源文件-Ico 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　现在要做一个携带两个图标的资源文件并调用的例子

　　首先建新工程保存注意这次我们不删除 $R * res

　　复制两个 ico 文件到工程目录譬如文件是 IcoFile_ ico IcoFile_ ico

　　建立文本文件输入

　　ico ICON IcoFile_ ico

　　然后保存为 MyRes rc 并 Add 到工程中如图

　　添加四个按钮实现代码如下

　　unit　Unit ;　

　　interface　

　　uses　　Windows 　Messages 　SysUtils 　Variants 　Classes 　Graphics 　Controls 　Forms 　　Dialogs 　StdCtrls;　

　　type　　TForm 　=　class(TForm)　　　Button :　TButton;　　　Button :　TButton;　　　Button :　TButton;　　　Button :　TButton;　　　procedure　Button Click(Sender:　TObject);　　　procedure　Button Click(Sender:　TObject);　　　procedure　Button Click(Sender:　TObject);　　　procedure　Button Click(Sender:　TObject);　　end;　

　　var　　Form :　TForm ;　

　　implementation　

　　$R　* dfm　

　　//使用资源中的第一个自定义图标　procedure　TForm Button Click(Sender:　TObject);　begin　　Application Icon Handle　:=　LoadIcon(HInstance 　 ico );　　　HInstance　当前程序实例的句柄　调用资源文件一定要用到它;　　ico 　是资源文件的标识符;　　LoadIcon　是个　API　函数　专门用于调用资源中的　ico　文件　它返回的是指定　ico　文件的句柄　　end;　

　　//使用资源中的第二个自定义图标　procedure　TForm Button Click(Sender:　TObject);　begin　　Application Icon Handle　:=　LoadIcon(HInstance 　 ico );　end;　

　　//使用资源中默认的程序图标　procedure　TForm Button Click(Sender:　TObject);　begin　　Application Icon Handle　:=　LoadIcon(HInstance 　 MainIcon );　end;　

　　//不使用图标(会显示　Windows　系统的默认图标)　procedure　TForm Button Click(Sender:　TObject);　begin　　Application Icon　:=　nil;　end;　

　　end //效果图

　　注释

　　此时的 MyRes rc 被编译成了 MyRes res

　　此时的 IcoFile_ ico IcoFile_ ico 文件被编译进 MyRes res

cha138/Article/program/Delphi/201311/8418