Delphi程序设计之--惯用法
发布: 2008-5-20 09:43 | 作者: 不详 | 来源: Codesky.net | 查看: 22次 | 进入软件测试论坛讨论
//对于{ No. 12 } 项目描述中，当画图的窗体控件属性或状态改变时，经常会需要通知所有的图形对象，进行相应的改变。
//则如果只定义一个广播函数，就可以实现父子通知的话，也会提高程序的可重用性、扩展性、易维护性等，使类结构清晰。
//比如：1、在Visio和MapInfo中，如果当前窗体的比例尺（缩放比例）改变时，需要用新的比例尺重画当前所有的显示图形对象。2、当当前窗体默认窗体字体改变后，对于默认使用窗体字体显示文字信息的图形对象，他们的文字字体也应该相应的改变。
//解决方案，参考TWinControl中，属性或状态改变时，通知所有子Controls的处理机制：
procedure TWinControl.NotifyControls(Msg: Word);
var
Message: TMessage;
begin
Message.Msg := Msg;
Message.WParam := 0;