标题：Action 造成cpu占用过多的奇怪问题

时间：2005-12-10 来源：互联网摘选 浏览数：次

 
问题说明：

　　为了维护程序的结构，我在程序中大量使用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% (AthlonXP 2100+)
　　// ---------------------------------------------------------

　　Result := False; // patched by 5291 2004-05-15
　　end;
　　把修改后的 ActnList.pas 拷贝到你的应用程序路径之下然后编译该程序。这个文件修改了原先的Update方法。你的程序可以直接使用新的 ActnList.dcu，你可以用它覆盖原先的组件。

 

（责任编辑：笑虎）

• 其他文章

• 上一篇文章： 字符串分割扩展 SplitEx
• 下一篇文章： 教你如何用Delphi生成GBK码表

• 相关文章

一个全面获取图象信息的函数getImageInfo()
用PHP控制您的浏览器cache
利用static实现表格的颜色隔行显示
AJAX技术开发“Back”按钮问题的应用程序(1)
结合Direct Web Remoting使用AJAX(1)

最近更新

今日推荐

热点文章