Delphi 从 TCustomRibbon 创建功能区不显示组件编辑器

Question

我的想法是创建我自己的功能区，它将继承自 TCustomRibbon。但是，我无法使用基本功能。安装我的新功能区后，它不显示 'Add Application Menu'.

等组件编辑器选项

我自己的色带代码与 TRibbon 的代码完全相同

 type
  TProkonRibbon = class(TCustomRibbon)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }

published
{ Published declarations }
property ActionManager;
property ScreenTips;
property Align default alTop;
property Anchors;
property ApplicationMenu;
property BiDiMode;
property Caption;
property DocumentName;
property Enabled;
property Font;
property Height default TCustomRibbon.cRibbonHeight;
property HideTabs;
property ParentBiDiMode;
property ParentFont;
property QuickAccessToolbar;
property ShowHelpButton;
property Style;
property Tabs;
// Tab Index must be streamed after the Tabs collection
property TabIndex;
property UseCustomFrame;
property OnHelpButtonClick;
property OnRecentItemClick;
property OnTabChange;
property OnTabVisibleChanged;
end;

Answer 1

功能区控件具有运行时和设计时部分。控件的设计时方面构建在运行时方面之上。那就是设计时代码依赖于运行时代码。

VCL 附带控件的运行时部分的源代码，但不附带设计时部分的源代码。控件的设计时部分是将项目添加到上下文菜单并显示自定义设计器等的部分。您缺少该代码。您无法获得该代码的源代码，因此您需要自己创建它。

Delphi 从 TCustomRibbon 创建功能区不显示组件编辑器

Delphi creating ribbon from TCustomRibbon does not show component editor

delphi

ribbon