|
|
|
怎么屏蔽FrontPage中的右键菜单？
我想要在FrontPage中增加一个新做的右键菜单功能，屏蔽掉FrontPage中原来的右键菜单但是不行。
我已经用了下面的代码：
for i := 1 to App.CommandBars.Count do
begin
Index:= i;
ShowMessage(IntToStr(App.CommandBars.Item[Index].Type_));
if App.CommandBars.Item[Index].Type_ = msoBarTypePopup then
begin
for j := 1 to App.CommandBars.Item[Index].Controls.Count do
begin
Indej:= j;
ShowMessage(VarToStr(Index)+':'+VarToStr(Indej) +':'+IntToStr(App.CommandBars.Item[Index].Controls.Item[Indej].Id));
ShowMessage(App.CommandBars.Item[Index].NameLocal +':'+App.CommandBars.Item[Index].Controls.Item[Indej].Tag+':'+App.CommandBars.Item[Index].Controls.Item[Indej].Caption+':' +IntToStr(App.CommandBars.Item[Index].Controls.Item[Indej].Id))
//if SameText(String(FAppMain.CommandBars.Item[Index].Controls.Item[Indej].TooltipText),ATip) then
//begin
// Result:= FAppMain.CommandBars.Item[Index].Controls.Item[Indej] as _CommandBarButton;
// Break;
//end;
end;
end;
end;
测试找出其中的右键菜单项，但是，根本没有msoBarTypePopup这种类型的CommandBar，希望那位高手能帮我接待这个问题，谢谢 |
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2003-12-31 11:34
楼主