COM中的PopupMenu弹出问题

2007-06-01 04:56:35 289 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

matplotlib:图形绘制常用增加修饰和设置参数文章目录（1）调整子图与子图之间的间距（2）设置RC参数支持中文和负号（3）增加子图（4）增加标题（5）修改x 刻度（6）修改y刻度（7）增加xy 标签值（8）增加图例及图例位置参数及图例大小设置（9）保存图片（10）绘制折线图及设置marker及各种参数（11）散点图的绘制（12）柱状图绘制（13）图形宽高及分辨率（14）折线图显示折线点值（15）增加网格线显示（16）饼图绘制（17）拼图设置... 阅读详情

编了IE的浏览栏Dll,里面有若干个PopupMenu,如果是直接打开IE，PopupMenu可以正常弹出（不管有多少个IE窗口）,但是如果在浏览器中点击链接后打开的新窗口中，在这个新窗口中 PopupMenu 不能弹出（其它控件都正常），而实际上 PopupMenu 也是存在的，就是不能弹出。问，何故？如何处理？

该问题 ptma（守望者）楼主已提过,其中也没有给出解决的办法,希望高手能给予多多指教!!!

...全文

Python数据可视化：pandas与matplotlib绘制专业饼图全攻略数据可视化是数据分析与呈现的关键环节，其核心在于将抽象数据转化为直观图形，以辅助决策与洞察。饼图作为一种经典的可视化图表，通过扇形面积占比直观展示整体中各部分的构成关系，在商业报告、市场分析等场景中具有重要价值。在Python生态中，pandas与matplotlib的组合为实现高效、可控的数据可视化提供了强大支持。pandas负责数据清洗、聚合与整理，而matplotlib则提供底层的图形绘制与精细化定制能力。这种结合尤其适用于需要快速探索数据分布并生成高质量静态图表的场景，例如制作包含市场占有率、用户画阅读详情

huaalexa

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

huaalexa 2007-06-07

打赏
举报

问题已结贴了

huaalexa 2007-06-07

打赏
举报

好,特别鸣谢graycarl(gray)兄的热心帮助,
也感谢dacsd(dacsd)的参与!

dacsd 2007-06-04

打赏
举报

"用Delphi开发ActiveX以后，才知道什么叫鸡肋"颇有同感。

huaalexa 2007-06-04

打赏
举报

非常感谢graycarl(gray)!
从中我得到了启发,已解决此问题.
另外还遇到在浏览栏(DLL)的Edit中就不能响应用户输入Backspace退格键,删除前一个字符.
希望各位兄弟帮帮忙!!!
等此问题解决了,一起给各位结分!

graycarl 2007-06-04

打赏
举报

需要实现IInputObject

graycarl 2007-06-02

打赏
举报

IE是以"多线程SDI"方式设计的，就是说我们看到的每个IE窗口被同一进程里的不同的界面线程拥有，而VCL设计时是只考虑了单用户界面线程情况的 :(，使用VCL编写IE插件或者ActiveX组件，不只是菜单实际上还有很多时候会碰到难办的问题，如果要编写这些应用，可以考虑放弃Delphi吧。
菜单的问题我之前也有碰到过关键在于Menus单元里的
var
PopupList: TPopupList;

TPopupList创建了一个隐藏Window来处理菜单消息在initialization节中初始化了PopupList,所以这个Window只属于创建它的线程我用了这样一个临时的办法来解决这个问题
1.移除PopupList变量声明和其初始化代码
2.添加函数声明function PopupList: TPopupList;
3.添加和改写如下实现代码
var
PopupList_TlsIndex : Cardinal;

procedure Init_PopupList_TlsIndex;
begin
PopupList_TlsIndex := TlsAlloc;
end;

procedure Clear_PopupList_TlsIndex;
begin
TlsFree(PopupList_TlsIndex);
end;

function PopupList: TPopupList;
begin
Result := TlsGetValue(PopupList_TlsIndex);
if not Assigned(Result) then
begin
Result := TPopupList.Create;
TlsSetValue(PopupList_TlsIndex,Result);
end;
end;

procedure TPopupList.Add(Popup: TPopupMenu);
begin
if Count = 0 then FWindow := Classes.AllocateHWnd(MainWndProc);
inherited Add(Popup);
end;

procedure TPopupList.Remove(Popup: TPopupMenu);
begin
inherited Remove(Popup);
if Count = 0 then
begin
Classes.DeallocateHWnd(FWindow);
TlsSetValue(PopupList_TlsIndex,nil);
Destroy;
end;
end;

initialization
Init_PopupList_TlsIndex;
...
finalization
...
Clear_PopupList_TlsIndex;

这个办法其目的是把PopupList放到线程局部存储(TLS)里，经过这样修改后Menu看起来是可以出来了不过也许也带来了内存泄露的问题，不建议使用。
个人以为用Delphi开发ActiveX以后，才知道什么叫鸡肋 :D。

COM中的PopupMenu弹出问题

相关推荐