关于TOlecontainer和Excel的菜单溶入问题 (别告诉我高手都死了)(88分)

  • 主题发起人 主题发起人 autumn
  • 开始时间 开始时间
A

autumn

Unregistered / Unconfirmed
GUEST, unregistred user!
我的MainMenu定义了一个帮助列
File | Help
open about...
close
-----
exit

但是当我Active Olecontainer的时候，Excel就会从Help后面加入菜单,我想将
Excel的帮助溶入我的Help中，或去掉。怎么办？
 
诚心请求高手襄助
 
把你的help菜单去掉，只能这样。
 
真的只能这样么？
 
确实只能这样。要不你就重写olecontainer控件。
 
可以hide掉它的帮助吗？
 
那就不清楚了，我还一直想
这么干呢。
 
哪位高手知道怎么加上滚动条啊？
 
Easy!

呵呵，这问题用不着高手，我来吧

procedure TForm1.Button1Click(Sender: TObject);
begin
OleContainer1.DoVerb(ovShow);
MainMenu1.SetOle2MenuHandle(0);
end;


 
menxin:
你的代码是将所有ole的菜单都hide掉，我只是想hide帮助的那一列，或加入一项
menuitem进ole的help menu里，怎么做？
 
那我要是本身就没有任何菜单，只是想
将所有ole的菜单都hide掉怎么办？
 
to li_tj

OleCntr.DoVerb(OleCntr.PrimaryVerb);
VertScrollbar.Position := VertScrollbar.Size;
PostMessage(OleCntr.Handle, WM_VSCROLL, MakeWord(SB_BOTTOM, 0), OleCntr.Handle);
PostMessage(OleCntr.Handle, EN_VSCROLL, OleCntr.Handle, OleCntr.Handle);
PostMessage(Self.Handle, WM_VSCROLL, MakeWord(SB_BOTTOM, 0), Self.Handle);
PostMessage(Self.Handle, EN_VSCROLL, Self.Handle, Self.Handle);
OleCntr.Update;
 
to iforever:
能否稍微解释一下？
 
li_tj:
本身没菜单，这方法也能用
 
我只是想hide帮助的那一列，或加入一项
menuitem进ole的help menu里，怎么做？
 
to menxin:
SetOle2MenuHandle这个方法只能用于菜单啊？
你也是先放置了一个菜单，然后使用的不是？
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
关于IE控件使用的几个问题
回复
0
查看
678
import
I
I
用Expert来汉化Delphi
回复
0
查看
685
import
I
I
一个关于矩阵的算法
回复
0
查看
763
import
I
后退
顶部