类别中的 VCL 寄存器属性不起作用

Question

我正在尝试对组件的一些属性进行分组。

type
  TcxGridButton = class(TcxButton)
  private
    FGridView : TcxGridDBTableView;
    FPopup : TPopupMenu;
    FImages : TcxImageList;
    FSortFilterEnabled : boolean;
    FCustomizeAndGroupEnabled : boolean;

    procedure AutoSize(Sender : TObject);
    procedure ClearFilter(Sender : TObject);
    procedure ExportToExcel(Sender : TObject);

    procedure SortFilter(Sender : TObject);
    procedure CustomizeAndGroup(Sender : TObject);

    procedure OnPopup(Sender : TObject);
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner : TComponent); override;

    procedure Click; override;
  published
    property GridView : TcxGridDBTableView read FGridView write FGridView;
    property AllowSortFilter : boolean read FSortFilterEnabled write FSortFilterEnabled;
    property AllowCustomizeAndGroup : boolean read FCustomizeAndGroupEnabled write FCustomizeAndGroupEnabled;
  end;

我希望在 VCL 中名为 PopupMenu Settings 的组下显示 AllowSortFilter 和 AllowCustomizeAndGroup。

所以我这样做了：

procedure Register;
begin
  RegisterComponents('Roberts', [TcxGridButton]);

  RegisterPropertiesInCategory('PopupMenu Settings', TcxGridButton, ['AllowSortFilter','AllowCustomizeAndGroup']);
end;

不幸的是，这不起作用，我不知道为什么。语法似乎是正确的，没有错误。但是该组没有被创建。

问候 罗伯特

Answer 1

我认为您可能在某个地方遗漏了一步，因为如果我组织您的 我认为应该组织的代码，然后我得到的结果是 AllowSortFilter 和 AllowCustomizeAndGroup 条目正确显示 在 cxGridButton 的 PopUpMenuSettings 类别中。

这就是我所做的：

• 将您的 TcxGridButton 代码，而不是您的 Register 程序放在一个新单元中， CategoryRTu（RT 运行时的缩写）。本单元不使用 DesignIntf​​。

• 将您的Register 过程放置在一个新单元CategoryDTu（DT 是DesignTime 的缩写）中。本单元确实使用 DesignIntf​​。

• 创建了一个新包 Category.Dpk，其中 Contains CategoryDTu 和 Requires rtl、designide、vcl、dbrtl、vcldb、dxGDIPlusD7、dxCoreD7、cxLibraryD7、dxThemeD7、 cxPageControlD7、cxEditorsD7、cxDataD7、dxLayoutControlD7 和 cxGridD7。 D7 后缀是因为我在 Delphi7 中做了这个。其中一些可能不是绝对必要的，因为我通过将 TcxButton 添加到表单然后创建列表 将一些 Used 单位复制到 Requires 列表中。

• 编译Category.Dpk并使用Component | Install packages安装Category.Bpl。

• 创建了一个新项目并向其中添加了一个 TcxGrid 和一个 TcxGridButton。

• 在对象检查器中选择 cxGridButton1，在 OI 中单击鼠标右键 并选择查看 |按类别

然后，展开 PopUpMenuSettings 节点，我看到 AllowSortFilter 和 AllowCustomizeAndGroup.