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

Question

我的想法是创建自己的功能区，它将继承自TCustomRibbon。但是，我不能使用基本功能。安装我的新功能区后，它不显示组件编辑器选项，例如“添加应用程序菜单”。

我自己带状的代码是代码的精确副本从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附带源代码，用于控件的运行时部分，但不包含designtime部分。控件的designtime部分是将项目添加到上下文菜单并显示定制设计师等。您缺少该代码。你无法获得该代码的源代码，所以你需要自己创建它。