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

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

问题说明:

为了维护程序的结构,我在程序中大量使用Action。其优点大家都知道,我可以让MenuItem对应

某个Action,同时让工具栏上的Toolbutton也对于相同的Action。这样我只需要对Action进行编

程,而MenuItem和ToolButton都可以相关到这个事件。

不过我发现了一个非常奇怪的问题。当我在程序中创建了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,你可以用它覆盖原先的组件。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航