Delphi编写ActiveForm,TPopupMenu不能在同一进程的两个IE中正常显示的问题
描述:delphi编写的ActiveForm中,包含有弹出菜单,在一个ie中,可以正常显示,不过,当在这个ie中通过链接或者
javascript打开另外一个ie窗口(同一个ie进程)的时候,弹出菜单就不会显示.
这个问题应该是Delphi的DAX本身的问题,其实,也是VCL封装时候,欠考虑的一个问题(猜测).
不能很好的支持跨进程应用.
被这个问题困扰很久,终于找到了解决方案.
据传说,有两种解决方案
1.菜单部分都基本上用api实现,最后,调用TrackPopupMenu来实现跨线程弹出菜单.
2.http://www.mustangpeak.net网站提供一些开源控件,里面有一个TEasyPopupMenu,是线程安全的弹出菜单,
可以解决这个问题,不过,感觉这个控件还是有些问题的:
(1) Images不能画出来(可能我还没有找到).
(2) 当设置某个菜单项visible切换的时候,会发生有些菜单调用失败,我看了下源代码,发现是以下代码的问题:
function TEasyPopupMenu.BuildMenu(Menu: HMENU): Cardinal;
procedure RunItems(ParentMenu: HMENU; Item: TEasyPopupMenuItem; var Offset: Cardinal);
......
if not Item.Visible then Exit;
修改为:
if not Item.Visible then
begin
Inc(Offset);
Exit;
end;
......
原因是它这里在菜单项visible为false的时候,其实,这些菜单项根本没有生成,可是,id(offset)还是顺次指定的,所以,
会发生有些菜单项跟command不能对应上,导致点击没有反应.
关于不能显示images的问题,我在继续研究.