procedure PRocessCallReqMessage(var Msg: TMsg);message CALLREQ;是什么意思?const
  CALLREQ   = WM_USER + 20;    //呼叫请求消息我主要是指procedure PRocessCallReqMessage(var Msg: TMsg);message CALLREQ;这样的写法代表的意义,我不会DELPHI但要想知道这个,谢谢了,急啊

解决方案 »

  1.   

    这应该是一个类的一个函数。
    当一个对象向这个类的实例发送消息CallReq(呼叫请求消息)之后,系统会自动调用这个函数。
    也就是说,这个函数处理其他对象的呼叫请求,这么说你明白了吗?
      

  2.   

    消信函数呀~~~~~procedure PRocessCallReqMessage(var Msg: TMsg);   //同普通的过程message CALLREQ;    // 触发的消息  post callreq 将触发该过程
      

  3.   

    系统自动调用是怎样实现的呢?
    不用管var Msg: TMsg这个参数吗?这个参数是怎样传递的?
    我不知道用c#怎么实现:(
      

  4.   

    相关代码
      
    private
        { Private declarations }
        bLoginStatus : boolean;  //登录状态
        bInit : boolean;         //是否初始化成功
         procedure PRocessCallReqMessage(var Msg: TMsg);message CALLREQ;
    procedure TFrmMain.PRocessCallReqMessage(var Msg: TMsg);
    var
      SrcNum: pchar;      //主叫 
      DestNum : pchar;    //被叫
    begin
      if bsignout = true then exit; //呼叫请求
      //获取呼叫号码
      try
        Getmem(SrcNum,50);
        Getmem(DestNum,50);
        GetSrcCaller(SrcNum);
        GetDestCaller(DestNum);
        M_SrcNum := SrcNum;
        M_DestNum := DestNum;
      finally
        freemem(srcnum,50);
        freemem(destnum,50);
      end;  if n39.Checked = false then
      begin
        //手动应答
        if BeforeCall() =1 then exit;  //发消息
        refreshenabled('beforecall');    statusbar1.Panels[2].Text := '呼叫接入,来自'+M_SrcNum+'...';
        statusbar1.Panels[1].Text := '当前状态:预占用';    if FileExists(ExtractFilePath(ParamStr(0)) + 'phone.wav') then
        TRing.StartRing('phone.wav') ;   //开始振铃
      end
      else
      begin
        //自动应答
        if BeforeCall() = 1 then exit; //发消息    if AnswerCall() <> 0 then
          statusbar1.Panels[2].Text := '应答失败';
      end;
    end;const
      CALLREQ   = WM_USER + 20;    //呼叫请求消息
      

  5.   

    procedure PRocessCallReqMessage(var Msg: TMsg);message CALLREQ 是拦截处理窗体收到指定消息(callreg),并处理。这是个自定义消息。
      

  6.   

    就是如楼上几位所说的,拦截指定的消息(callreq),然后在这个过程中进行处理,不是函数,是一个字程,因为关键字为procedure且没有返回值,msg是一个Tmsg的类型的一个参数,其定义结构可以在帮助中找到;如果还不明白请看一下delphi对win32消息的处理吧;