N
netcore
Unregistered / Unconfirmed
GUEST, unregistred user!
用如下方法添加菜单成功：
……
wa1: TWordApplication;
wd1: TWordDocument;
……
procedure testclick;
……
var
myMenuBar: CommandBar;
newMenu,
ctrl1:OleVariant;
begin
myMenuBar :=Wa1.CommandBars.ActiveMenuBar;
newMenu := myMenuBar.Controls.Add(10,1,1,1,true);
newMenu.Caption := 'test';
ctrl1 := newMenu.CommandBar.Controls.Add(1,1,0,1,false);
ctrl1.Caption := 'Import';
ctrl1.TooltipText := 'Import';
ctrl1.Style := 2;
//ctrl1.Click := testclick;///////本句错，不能使用
end;
但是如果想把这个添加的菜单项和事件关联则出错，即最后一句代码不能加上。求解决方法！
要求：
1、新建的菜单 'Import'项要能响应自定义事件testclick。
2、如果为了达到要求1而不使用上面的方法新建菜单，那么，新建的菜单项必须和上面的代码一样是建立一个和WORD默认的菜单项：文件、编辑、视图、插入、格式、工具、表格、窗口、帮助这些并列的菜单项，而不是只能在某个已有的菜单项下加入。
……
wa1: TWordApplication;
wd1: TWordDocument;
……
procedure testclick;
……
var
myMenuBar: CommandBar;
newMenu,
ctrl1:OleVariant;
begin
myMenuBar :=Wa1.CommandBars.ActiveMenuBar;
newMenu := myMenuBar.Controls.Add(10,1,1,1,true);
newMenu.Caption := 'test';
ctrl1 := newMenu.CommandBar.Controls.Add(1,1,0,1,false);
ctrl1.Caption := 'Import';
ctrl1.TooltipText := 'Import';
ctrl1.Style := 2;
//ctrl1.Click := testclick;///////本句错，不能使用
end;
但是如果想把这个添加的菜单项和事件关联则出错，即最后一句代码不能加上。求解决方法！
要求：
1、新建的菜单 'Import'项要能响应自定义事件testclick。
2、如果为了达到要求1而不使用上面的方法新建菜单，那么，新建的菜单项必须和上面的代码一样是建立一个和WORD默认的菜单项：文件、编辑、视图、插入、格式、工具、表格、窗口、帮助这些并列的菜单项，而不是只能在某个已有的菜单项下加入。
]