delphi 如何为克隆的TMenuItem分配所有者?

r8xiu3jd  于 2022-11-04  发布在  其他
关注(0)|答案(1)|浏览(73)

当我以通常的方式通过编程创建一个TmenuItem时,所创建的菜单项的Owner将作为Create函数中的一个参数传递,例如:

var NewMenuItem := TMenuItem.Create(MainMen1);

但是,当通过克隆菜单项来创建菜单项时,分配其Owner属性会导致错误:

function CloneMenuItem(SourceItem: TMenuItem): TMenuItem;
begin
  with SourceItem do  
    Result := Vcl.Menus.NewItem(Caption, Shortcut, Checked, Enabled, OnClick, HelpContext, Name + 'Cloned'); 
  //Result.Owner := pmMyPopupMenu; // ERROR
end;

那么,如何指定克隆的TMenuItem的所有者呢?

暂无答案!

目前还没有任何答案,快来回答吧!

相关问题