有个小问题 有句程序不理解什么意思 大家帮忙看看

const 
 mousemsg=wm_user+1;private
//自定义消息处理函数，处理鼠标点击图标事件
procedure mousemessage(var message: tmessage); message mousemsg;
public上面一段的是有关系统栏图标增加的程序中的前面的声明
procedure mousemessage(var message: tmessage); message mousemsg;
就是不理解这个是什么意思 尤其是后面的这句message mousemsg; 

解决方案 »

  1.   

    const 
     mousemsg=wm_user+1;
    -----------
    声明一个用户自定义消息ID号procedure mousemessage(var message: tmessage); message mousemsg;告诉Delphi投递过来的消息mousemsg交由mousemessage这个过程来处理.
      

  2.   

    呵呵 不好意思 还有一句话 inherited; 这个的含义
      

  3.   

    呵呵 还是不太明白
    var
    ntida:TNotifyIcondataA;ntida.uCallbackMessage:=mousemsg;
    这是后面用到的消息处理 为什么不能直接把过程名赋给uCallbackmessageprocedure mousemessage(var message: tmessage); message mousemsg;
    这里的message mousemsg;是不是也是过程说明的一部分啊 不明白的就是mousemsg是一个const
    为什么前面还要加个message
      

  4.   

    mousemsg=wm_user+1;这句话应该是定义了一个用户自定义的消息ID
    procedure mousemessage(var message: tmessage); message mousemsg;这句是典型的Delphi拦截API消息的处理过程，在C中消息拦截时用case来实现的，Delphi对它进行了封装，就像上面那样
      

  5.   

    inherited;就是将消息继续传下去。
      

  6.   

    message 指令 定义一个消息处理器过程 过程参数格式固定，当指定消息到来时将触发这个过程
    inherited作用同字面