Delphi程序设计之--惯用法

领测软件测试网

FfrmProperty.Perform(WD_REFRESHPROPERTYLIST, 0, 0);

TfrmProperty = class(TForm)
private
FMyForm: TForm;
procedure WDREFRESHPROPERTYLIST(var Message: TMessage); message WD_REFRESHPROPERTYLIST;
public
constructor MyCreate(Owner: TComponent; AForm: TForm);
end;

constructor TfrmProperty.MyCreate(Owner: TComponent; AForm: TForm);
begin
inherited Create(Owner);
FMyForm := AForm;
end;

//* 对于使用消息的方式，可以减少窗体公共函数的定义。同时，提高程序的可扩充性。如果，使用他的窗体替代时，则可以比较轻松的转换，因为如果最多也就是您的窗体，对当前的消息没有进行处理而已 *)// 

文章来源于领测软件测试网 https://www.ltesting.net/