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;
- 上一篇 »PHP使用Redis的List,列表命令实现消息队列
- 下一篇 »java消息队列使用场景