Delphi编写ActiveForm,TPopupMenu不能在同一进程的两个IE中正常显示的问题

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的问题,我在继续研究.