关工具条没问题,我关的什么都没有了
For j:=1 to V.CommandBars.Count do begin
V.CommandBars.Item[j].Set_Visible(False);
end;
For j:=1 to V.CommandBars.Count do begin
V.CommandBars.Item[j].Set_Visible(False);
end;
解决方案 »
- Timer里的变量怎么运行的时候自己变成0了。
- printer打印的边界设置问题?
- 用quickrep和QRband打印DBGRID如何能把表格一起打印起来(在线等,急!!!!)
- Delphi8下载,快来呀
- InstallShield和wise install那个好些?
- 谁发 dsgnintf 谁得50分
- 外部加载swf哪些情况会影响 帧频?
- 请问如何做类似 Dreamweaver 的网页编辑区?就是插入图片就立刻显示!
- 有关类型转换的(string ---> pchar) 那位高手帮忙 急急,在线等候!!!
- 文件夹加密
- StringGrid的问题
- 请各位编程高手指点一下:对于一个初学编程的菜鸟是学delphi还是学C++好?
j:integer;
vi:olevariant;
WordDocument:olevariant;
begin
vi:=false;
WordDocument:=OleContainer.OleObject;
For j:=1 to WordDocument.CommandBars.Count do begin
if WordDocument.CommandBars.Item[j].Name='Menu Bar' then begin
WordDocument.CommandBars.Item[j].Set_Enabled(vi);
end;
End;
end;