zoukankan      html  css  js  c++  java
  • 发送消息执行方法函数(消息函数)

    1. 定义方法函数:
       procedure InitRunParam(var Msg: TMessage); message WM_USER + 1110; //参数类型是固定的; message WM_USER + 1110 数字可变.或定义为常量:
      const
        WM_REFRESH_STATE = WM_USER + 5;//需要引用 Winapi.Messages

    2. 发送消息
    PostMessage(Handle, WM_USER + 1110, 0, 0);//程序启动时通过发消息创建托盘图标
    PostMessage(frmMain.handle,WM_MYMESSAGE,0,integer(pchar('hello ! 你好!')));//发送字符串参数

    3. 方法函数实现:实现部分可以不加message WM_USER + 1110;这一句. 且参数可以不使用.

    procedure TfrmMain.InitRunParam(var Msg: TMessage);
    var i: Integer;
    begin
      logCtrl.Debug(nil, 'TfrmMain.InitRunParam in');
      for i := 1 to 3 do
      begin
        try
          RzTrayIcon.Enabled := True;
          Break;
        except on e: Exception do
          begin
            RzTrayIcon.Enabled := False;
            logCtrl.Debug(nil, 'TfrmMain.InitRunParam err:' + e.Message + ' 次数:' + IntToStr(i));
            if i >= 3 then
            begin
              Application.MessageBox('考试端服务程序初始化失败,请重新启动程序!',
                '提示信息', MB_OK + MB_ICONSTOP + MB_DEFBUTTON2);
              Application.Terminate;
            end else Sleep(500);
          end;
        end;
      end;
      try
        dmDB.udpServer.Active := True;
      except on e: Exception do
        logCtrl.Debug(nil, 'TfrmMain.InitRunParam udpServer启动失败:' + e.Message );
      end;
      logCtrl.Debug(nil, 'TfrmMain.InitRunParam out');
    end;

  • 相关阅读:
    2019.9.6文艺理论笔记
    2019.9.5作业整理
    2019下高级英语笔记
    2019下实用口才课笔记
    【学英语~磨耳朵】2013年以来看过的所有美剧&电影&纪录片等等
    python温度转换代码
    python蟒蛇绘制的代码以及目前还不知道怎么用的RGB颜色对照表
    看TED演讲——Why you will fail to have a great career
    结构与算法(5)-----队列
    结构与算法(4)-----栈
  • 原文地址:https://www.cnblogs.com/weijie-liu/p/9644888.html
Copyright © 2011-2022 走看看