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;

//* 對于使用消息的方式，可以減少窗體公共函數的定義。同時，提高程序的可擴充性。如果，使用他的窗體替代時，則可以比較輕松的轉換，因為如果最多也就是您的窗體，對當前的消息沒有進行處理而已 *)// 

文章來源于領測軟件測試網 http://www.kjueaiud.com/