为一个控件编了个控件编辑器,希望能在设计期为其动态增加子控件,就像TMainMenu
和TMenuItem一样,但怎样才能让新产生的子控件出现在Delphi的属性编辑器中呢?
delphi中菜单编辑器是怎么做的?有源码吗?
//容器控件
TobContainer = class(TComponent)
...
end;//子项控件
TobItem = class(TComponent)
...
end;//TobContainer的编辑器
TobContainerEditor = class(TComponentEditor)
...
procedure ExecuteVerb(Index: Integer); override;
end;procedure TobContainerEditor.ExcuteVerb(Index: Integer);
begin
case Index of
0: TobItem.Create(TobContainer(Component));
end;
end;
这样Item是建立了,但IDE没反应,请赐教
和TMenuItem一样,但怎样才能让新产生的子控件出现在Delphi的属性编辑器中呢?
delphi中菜单编辑器是怎么做的?有源码吗?
//容器控件
TobContainer = class(TComponent)
...
end;//子项控件
TobItem = class(TComponent)
...
end;//TobContainer的编辑器
TobContainerEditor = class(TComponentEditor)
...
procedure ExecuteVerb(Index: Integer); override;
end;procedure TobContainerEditor.ExcuteVerb(Index: Integer);
begin
case Index of
0: TobItem.Create(TobContainer(Component));
end;
end;
这样Item是建立了,但IDE没反应,请赐教
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货