我在TRzGroup的帮助下创建侧边栏图像。我已经使用标题Print Now创建了TRzGroup,并添加了名为Print的项目。我打算在菜单项的左侧添加一个小的打印机图标图像,如下图所示。怎么做?
object RzGroup2: TRzGroup
Items = <
item
Caption = 'Print'
ImageIndex = 4
OnClick = RzGroup2Items0Click
end>
Opened = True
OpenedHeight = 47
DividerVisible = False
SmallImages = ImageList1
Special = True
Caption = 'Print Now'
ParentColor = False
end
当代码从代码中的某处提取时,SmallImage属性被分配给ImageList1。我认为这是图像菜单。我在对象检查器中检查了SmallImages属性,但不确定如何创建ImageList1并分配给SmallImages。
答案 0 :(得分:2)
从Delphi组件面板(Win32页面)中将TImageList
放到表单上(或表单使用的数据模块中)。双击新TImageList
,点击显示的Add
上的ImageList Editor
按钮,然后添加图片。关闭`ImageList Editor'。
返回表单。单击RzGroup2
项,然后在SmallImages
属性的Object Inspector中下拉列表,并选择您在第一步中添加的图像列表。
将ImageIndex
项的Print
设置为您在上一步中分配给ImageList
的{{1}}中的相应索引。