0

我正在 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。

在此处输入图像描述

4

1 回答 1

2

将一个从 Delphi 组件面板(Win32 页面)拖放TImageList到您的表单(或表单使用的数据模块中)。双击新TImageList的 ,单击出现的Add按钮ImageList Editor,然后添加图像。关闭“ImageList 编辑器”。

回到你的表格。单击该RzGroup2项目,然后在 Object Inspector 中为该属性下拉列表SmallImages,然后选择您在第一步中添加的图像列表。

将项目的 设置ImageIndex为您在上一步中分配给Print的适当索引。ImageListRzGroup

于 2013-08-15T15:44:52.930 回答