各位大哥大、大姐大,春节快乐。^________________________________________________________^
************************************************************************
小弟的问题是这样的: 小弟写了一个MainMenu 。 但,这个MainMenu不是从TMenu或TMainMenu继承下来的, 所以也就没有遗传它们的PropertyEditor 。 可是,我又很想拥有TMainMenu里“Items”属性的“PropertyEditor”。 说得通俗点儿,就是,想实现“设计时菜单编辑器”。 请大伙帮帮我,由衷感谢~再次祝愿 新年快乐。 ^_________^
************************************************************************
小弟的问题是这样的: 小弟写了一个MainMenu 。 但,这个MainMenu不是从TMenu或TMainMenu继承下来的, 所以也就没有遗传它们的PropertyEditor 。 可是,我又很想拥有TMainMenu里“Items”属性的“PropertyEditor”。 说得通俗点儿,就是,想实现“设计时菜单编辑器”。 请大伙帮帮我,由衷感谢~再次祝愿 新年快乐。 ^_________^
//....
requires
rtl,
designide; //包中加入designide.dcp(MnuBuild.pas)
//....
end.//单元中uses MnuBuild;
unit xxxx;uses
Classes, Menus, MnuBuild,
{$IFDEF VER140}
DesignEditors, DesignIntf
{$ELSE}
{$IFDEF VER150}
DesignEditors, DesignIntf
{$ELSE}
DsgnIntf
{$ENDIF}
{$ENDIF};procedure Register;
begin
RegisterComponents('Zswang', [TMyMenu]); RegisterPropertyEditor(TypeInfo(TMenuItem), TMyMenu, 'Items', TMenuItemProperty);
end;
您帮我在你的 delphi 环境下试试 TMenuItemProperty 能否使用,行不?
怎么把属性编辑器的数据传回或者向属性编辑器传输数据呢。
我做的属性编辑器时一个扩展TreeView的Items的编辑器,
功能和TreeView的Items的编辑器功能一样,只是添加了一个属性。