解决方法: 下载一个补丁 Windows6.1-KB917607-x86.msu,或者直接百度上搜索 WinHlp32.exe for windows7下载
补丁安装后就可以了,安装补丁时需要开启Windows Update服务
帮人帮到底,直接把下载地址贴给你吧。(www.oyksoft.com/downinfo/11681.html)
可以的。解释:delphi是可以在win7 32位系统下正常兼容运行的,而win7 64位系统是兼容32位系统的,所以这个是可以正常使用的。通常兼容性问题都是出现在xp系统和win7系列产品上,所以在win7 64位下正常安装使用即可。
这个东西的实现是比较麻烦的,所以我给你只说一下思路。事实上这个程序的实现是使用了两个控件,一个是ComboBoxEx、一个则是ToolBar。ToolBar放在ComBoBoxEx之上。ToolBar的Visible是由ComboBox是否具有焦点来决定的.也就是OnEnter和OnExit事件。也就是说ComBoBoxEx焦点则ToolBar隐藏,反之则ToolBar显现。
你可以在ComBoBox的OnEndEdit或者OnChange事件中创建ToolBar按钮
当然也要清除之前创建工具栏按钮。
因为地址是由“\”来分割的所以你可以创建一个TStringList,来拆分地址。当然盘符“:”则可以用Pos与Copy函数,或者正则表达式来拆分,我这里就不多说了。
var ParhList: TStringList
PathList := TStringList.Create
PathList.Delimiter := '\'
PathList.DelimitedText := ComboBoxEx1.Text
这样就可以根据PathList中的元素来创建ToolBar的按钮了
而创建的时候要注意的是ToolBar的按钮(TToolBarButton)的Style要设置为tbsDropDown样式。
而且为每个按钮创建DropDownMenu(TPopupMenu),然后在每个新创建PopupMenu的OnPopup的事件中清除旧的、并创建新的子菜单。而图标的问题可以到网上去查询“Delphi 获取系统图标列表”。 完成所有ToolBar相关的OnClick事件。基本上就大功告成了。只是这个非常的复杂,如果你没有特殊的需要的话,我建议你还是不要这么写。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)