IE 浏览器ToolBar中的有带有菜单的小三角图标的按钮是怎么实现的(300分)

  • 主题发起人 主题发起人 别针
  • 开始时间 开始时间

别针

Unregistered / Unconfirmed
GUEST, unregistred user!
在IE6.0浏览器中,打开一个网页后,浏览器的工具条上会出现一个Word图标的按钮,点击一下就会启动Word编辑当前网页,按钮旁边还有一个图标是小三角形的小按钮,点一下会出现一个菜单,菜单中有“使用 Word 编辑”、“使用 Excel 编辑”等等菜单项,请问按钮和菜单是怎么加到浏览器的工具条中的,已知IE5Tools可以添加按钮,但不知带有菜单的小三角图标的按钮怎么实现啊?300元奉上,急!!!!
 
那个地方是一个标准的Toolbar Control ,应该可以通过SendMessage发送TB_ADDBUTTONS 过去添加按钮,以前我也问过这个问题.也研究了下.不过没最终解决.
 
ToolButton1.Style:=tbsDropDown; 設置後就會出現三角的按鍵了。

QQ: 136293586
 
使用toolbar添加一个按钮将style设成tsDropdown,然后建立菜单(可以是主菜单,也可以是弹出菜单,比如某菜单项V1包括t1,t2,t3,t4这几个子菜单),再将toolbar中的这个按钮的menuitem设为v1就可以了
 
楼上2位看清楚问题没有?人家要的是在ie的toolbar上.不是自己建的toolbar
 
谢谢satanmonkey兄,我确实是想在ie的toolbar上添加此类按钮。目前IE5Tools这个第三方提供的单元可现实一个小按扭的添加。但我还没找到可以添加图标是三角形的小按钮,点击弹出菜单的方法。IE5Tools单元中有过程如下:
function AddToolbarBtn(Visible: Boolean; ConnType: TConnType; BtnText, HotIcon, Icon, GuidOrPath: string): string;
var
G: TGUID;
Reg: TRegistry;
UID: string;
begin
CoCreateGuid(G);
UID := GuidToString(G);
Reg := TRegistry.Create;
with Reg do try
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('/Software/Microsoft/Internet Explorer/Extensions/' + UID, True);
if Visible then
WriteString('Default Visible', 'Yes') else
WriteString('Default Visible', 'No');
WriteString('ButtonText', BtnText);
WriteString('HotIcon', HotIcon);
WriteString('Icon', Icon);
case ConnType of
COM_OBJECT: begin
WriteString('CLSID', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');
WriteString('ClsidExtension', GuidOrPath);
end;
EXPLORER_BAR:
begin
WriteString('CLSID', '{E0DD6CAB-2D10-11D2-8F1A-0000F87ABD16}');
WriteString('BandCLSID', GuidOrPath);
end;
SCRIPT:
begin
writeString('CLSID', '{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');
WriteString('Script', GuidOrPath);
end;
EXECUTABLE:
begin
WriteString('CLSID', '{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');
WriteString('Exec', GuidOrPath);
end;
end;
CloseKey;
OpenKey('/Software/IE5Tools/ToolBar Buttons/', True);
WriteString(BtnText, UID);
CloseKey;
finally
Free;
end;
Result := UID;
end;
实现功能是通过修改注册来实现的,采用其中的方法可以添加ToolBar、按钮、COM对象插件、脚本等等。IE5TOOLS单元我也是刚刚才接触(在网上可以找到),satanmonkey兄可以参考一下,看看能不能顺利解决此问题。谢谢!
 
这个我早看了,只能加普通按钮.
 
学习一下,关注中~~~~~~~~~~~~~
 
看看这个软件吧http://www.unhsolutions.net/Flash-Saving-Plugin/index.html
我最早是在这个软件上看到这个效果的,只是他没三角,但是是下拉的.
带三角的看这个
http://www.goupsoft.com/ezsavemht/index.php

说明肯定可以实现的.
 
试试用IShellBrowser::SetToolbarItems 实现, 好像可以. 不过没时间做实例测试.
 
不好意思,这两天较忙,没上来看贴子,谢谢各位提供的资料,继续研究ing.....
 
小蒙在研究什么项目?
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
943
DelphiTeacher的专栏
D
D
回复
0
查看
882
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部