• 丰搜首页
• 文档中心
• 视频中心
• 丰搜贴吧
• 问题集锦
• 更多功能

选择显示字体大小

• 最大
• 较大
• 标准

action 造成cpu占用过多的奇怪问题

　　问题说明：

　　为了维护程序的结构，我在程序中大量使用action。其优点大家都知道，我可以让menuitem对应某个action，同时让工具栏上的toolbutton也对于相同的action。这样我只需要对action进行编程，而menuitemtoolbutton都可以相关到这个事件。

　　不过我发现了一个非常奇怪的问题。当我在程序中创建了4个工具栏。然后初始化程序时动态创建toolbutton(大约40个)，同时把他们都关联到不同的action。(整个程序还只是一个空壳子，所有的action里面还没有放入代码)我在主窗体上面的空白处(非工具栏区域)移动鼠标，用任务管理器监视。cpu占用率达30%左右(其他程序都关闭了)。如果我动态创建toolbutton的时候先关联action，然后再取消管理action，cpu占有率就下降到10%左右。

　　解决思路：

　　发现是由于在出发 wm_update 事件的时候，tactionmanager会询问所有 taction，是否需要响应 onupdate 事件。而这个 wm_update 触发的频率相当频繁，可想而知，不断对所有 taction 进行询问，需要占用大量的 cpu 时间。在实际运用过程中，这个 onupdate 事件几乎不被用到。因此设计了如下的补丁程序。

function tcontainedaction.update: boolean; 　　begin { 　　result := (actionlist <> nil) and actionlist.updateaction(self) or 　　application.updateaction(self) or inherited update or 　　(sendappmessage(cm_actionupdate, 0, longint(self)) = 1); 　　} 　　// --------------------------------------------------------- 　　// onupdate may cause serious performance problem. 　　// cpu usage is always at about 20-30&#37; (athlonxp 2100+) 　　// --------------------------------------------------------- 　　result := false; // patched by 5291 2004-05-15 　　end;

　　把修改后的 actnlist.pas 拷贝到你的应用程序路径之下然后编译该程序。这个文件修改了原先的update方法。你的程序可以直接使用新的 actnlist.dcu，你可以用它覆盖原先的组件。

　　

 

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

标准 网站致力的规范