转到将图形对象添加到字符串列表
一旦在应用程序中有了图形图像，就可以将它们与字符串列表中的字符串相关联。您可以将对象与字符串同时添加，或者将对象与现有字符串关联。如果所有需要的数据都可用，首选方法是同时添加对象和字符串。
以下示例显示了如何将图像添加到字符串列表。这是文件管理器应用程序的一部分，其中除了每个有效驱动器的字母外，还添加了一个位图，指示每个驱动器的类型。这个OnCreate（创建时）事件处理程序如下所示：
程序 TFM形式.入事件(发件人: TObject（目标）);
变量
驱动器: 字符;
添加的索引: 整数;
开始
对于 驱动器 := “A” 到 “Z” 做 {迭代所有可能的驱动器}
开始
案例 获取驱动类型(驱动器 + ':/') 属于 {正值表示有效驱动器}
驱动器_可移动: {添加选项卡}
添加的索引 := 驱动器选项卡集.标签页.添加对象(驱动器, 松软的.图片.图解的);
驱动器_固定: {添加选项卡}
添加的索引 := 驱动器选项卡集.标签页.添加对象(驱动器, 固定的.图片.图解的);
驾驶员_远程: ｛添加选项卡｝
添加的索引 := 驱动器选项卡集.标签页.添加对象(驱动器, 网络.图片.图解的);
结束;
如果 UpCase（大写）(驱动器) = UpCase（大写）(目录大纲.驱动器) 然后 {当前驱动器？}
驱动器选项卡集.属性 := 添加的索引; {然后创建当前选项卡}
结束;
结束;
空隙 __快速呼叫 TFM表单::入事件(TObject（目标） *发件人) {
int添加索引；
char驱动器名称[4]=“A:\\”；
for（char驱动器=“A”；驱动器<=“Z”；驱动器++）//尝试所有可能的驱动器
{
驱动器名称[0]=驱动器；
开关（GetDriveType（驱动器名称））{
case DRIVE_REMOVABLE://添加列表项
驱动器名[1]=“\0”；//暂时将驱动器号转换为字符串
AddedIndex=驱动器列表->项目->添加对象（驱动器名称，
软盘->图片->图形）；
DriveName[1]=“：”//替换冒号
断裂；
case DRIVE_FIFXED://添加列表项
驱动器名[1]=“\0”；//暂时将驱动器号转换为字符串
AddedIndex=驱动器列表->项目->添加对象（驱动器名称，
固定->图片->图形）；
DriveName[1]=“：”//替换冒号
断裂；
case DRIVE_REMOTE://添加列表项
驱动器名[1]=“\0”；//暂时将驱动器号转换为字符串
AddedIndex=驱动器列表->项目->添加对象（驱动器名称，
网络->图片->图形）；
DriveName[1]=“：”//替换冒号
断裂；
}
如果 ((整数)(驱动器 - “A”) == 获取磁盘()) //当前驱动器？
驱动器列表->项目索引 = 添加的索引;
//然后将其设置为当前列表项
}
}
另请参见