如何给TMainMenu的Item增加属性?

[ron_xin]

想重新做一个控件,给TMainMenu的Item增加两个属性 ShowFormName:TForm; ShowFormClass:TFormClass 不知道如何增加,请教各位!

[ron_xin]

就是想点击MainMenu的时候直接能创建窗体,不用每个MenuItem里都写代码

[bdmh]

自己继承一个,编写自己的代码吧,3楼已经说的差不多了,就是属性放在published中,否则属性栏中是看不到的

[baseyueliang]

VCL中写死了，不能拓展。
constructor TMenu.Create(AOwner: TComponent);//TMainMenu的父类
begin
FItems := TMenuItem.Create(Self);//如果他能这样写就好了FItems := CreateItems;
...
end;

所以只能对
TMenuItem <-> TForm 作绑定映射

[starluck]

設置ACTION

對ACTION.Data 這裏做文章

[try__again]

ShowFormName:TForm？加这样的属性？干嘛用的？

我觉得这样的东西还是通过自己写util工具单元实现比较好

可以写两个公共方法，如ShowFormName（AItem：TMeun）:TForm

[CACACACACA]

public
property ShowFormName:TForm read GetShowFormName;
property ShowFormClass: TFormClass read GetShowFormClass;


TXXXMainMenu.GetShowFormName: TForm;
begin
GetParentForm 返回 TForm
end;

TXXXMainMenu.GetShowFormClass: TFormClass;
begin
GetClass(GetParentForm.Name) 返回TFormClass
end;