delphi 消息的使用

//分析结果

WM_AnalysisResult = WM_USER + 1009;

SendMessage(G_MainHandle, WM_AnalysisResult, 0, 0);

procedure WMAnalysisResultUpdate(var AMessage: TMessage); message WM_AnalysisResult ;

procedure Tfrm_MainIPC.WMAnalysisResultUpdate(var AMessage: TMessage);

begin

if AMessage.Msg = WM_AnalysisResult then

begin

//finMessage('haha');

end;

end;