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附带了控件运行时部分的源代码，但不包含设计时部分。控件的设计时部分是将项添加到上下文菜单并显示自定义设计器等的内容。您缺少该代码。您无法获取该代码的来源，因此您需要自己创建该代码。

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

1 个答案: