在Delphi中使用动态图标

日期：2007年5月2日作者：查看:[大字体中字体小字体]

在应用程序的编写中，组合框（ComboBox）、列表框（ListBox）、等常见的部件，通常不仅要用于显示文字，而且还要显示其与文字相关的图标。在一般的Windows应用程序中，这些图标的显示都要随列出的显示文本的变化而变化，例如在组合框中列出当前目录下的所有文件时，在组合框左边就显示与文件名相关联的图标，这就是所谓的动态图标。在Delphi中使用动态图标的步骤如下：

一、图标的获取

要使用动态图标，首先要解决的是如何获得显示文本和与其相关联的图标句柄。该图标通过文件关联由系统注册表决定，并且在Windows编程中同一文件(或子目录，或文件夹）在桌面上也可能有两种显示结果，这就是DOS文件名与显示名(Display Name)。如果我们的应用程序不需要有像Windows资源浏览器那样的效果，则可以使用FindFirst()和FindNext()二个函数以及FindClose()过程来获得DOS文件名，否则我们就应当使用WindowsAPI来获得显示名。在获得文件名的同时可通过使用ShellAPI.pas中的SHGetFileInfo()函数来获得其图标句柄HICON，说明如下：

function SHGetFileInfo(pszPath: PAnsiChar; dwFileAttributes: DWORD;var psfi: TSHFileInfo; cbFileInfo,uFlags: UINT): DWORDl;

pszPath 参数：指定的文件名。当uFlags的取值中不包含 SHGFI_PIDL时，可直接指定；否则pszPath要通过计算获得，不能直接指定；

dwFileAttributes参数：文件属性，仅当uFlags的取值中包含SHGFI_USEFILEATTRIBUTES时有效，一般不用此参数；

psfi 参数：返回获得的文件信息，是一个记录类型，有以下字段：

hIcon: HICON; //文件的图标句柄

iIcon: Integer; //图标的系统索引号

dwAttributes: DWORD; //文件的属性值

szDisplayName: array [0..MAX_PATH－1] of AnsiChar; //文件的显示名

szTypeName: array [0..79] of AnsiChar; //文件的类型名

cbFileInfo 参数：psfi的比特值；

uFlags 参数：指明需要返回的文件信息标识符，常用的有以下常数：

SHGFI_ICON; //获得图标

SHGFI_DISPLAYNAME; //获得显示名

SHGFI_TYPENAME; //获得类型名

SHGFI_ATTRIBUTES;//获得属性

SHGFI_LARGEICON; //获得大图标

SHGFI_SMALLICON; //获得小图标

SHGFI_PIDL;// pszPath是一个标识符

函数SHGetFileInfo()的返回值也随uFlags的取值变化而有所不同。通过调用SHGetFileInfo()可以由psfi参数得到文件的图标句柄，但要注意在uFlags参数中不使用SHGFI_PIDL时，SHGetFileInfo()不能获得"我的电脑"等虚似文件夹的信息。

二、图标的加载

使用Delphi提供的TImageList组件，通过调用CommCtrl .pas中的函数ImageList_AddIcon()来加载得到的图标，并要保证其索引号与显示文本相对应。说明如下：

function ImageList_AddIcon(ImageList: HIMAGELIST; //加载图标的ImageList句柄

Icon: Hicon //加载的图标句柄 ): Integer; //返回图标在ImageList中的索引号

在需要指明图标索引号时可使用ImageList_AddIcon()的返回值。
[1] [2] 下一页
在Delphi中使用动态图标相关文章：
·在Delphi中使用动态图标
在Delphi中使用动态图标相关软件

上一篇:窗体的建立时机及缓冲的思想在ini文件中的应用

下一篇:Dephi 之DLL技巧汇集(1)

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

在Delphi中使用动态图标

精品推荐

热点TOP10

特别推荐