procedure WMNID(var msg:TMessage);message WMNID;什么意思？

Question

procedure WMNID(var msg:TMessage);message WMNID;什么意思呀？
为什么编译不过呀？

Answer 1

这应该是一个消息函数，响应WMNID消息的，不过按照一般的情况应该是
procedure WMNID(var msg:TMessage);message WM_NID;
编译的时候有什么提示，可以拿出来看看

Answer 2

procedure WMNID(var msg:TMessage);message WMNID;
begin
  case msg.LParam of
    WM_LBUTTONUp:Form1.Visible:=not Form1.Visible;
    WM_RBUTTONUP: ShowMessage('111');
  End;
End;

Answer 3

procedure WMNID(var msg:TMessage);
begin
  case msg.LParam of
    WM_LBUTTONUp:Form1.Visible:=not Form1.Visible;
    WM_RBUTTONUP: ShowMessage('111');
  End;
End;你把第一行最后面的“message WMNID;”去掉，那个只要只声明的时候有就可以了

Answer 4

procedure WMNID(var msg:TMessage);  //message WMNID;实现时这里去掉
begin
  case msg.LParam of
    WM_LBUTTONUp:Form1.Visible:=not Form1.Visible;
    WM_RBUTTONUP: ShowMessage('111');
  End;
End;//WMNID定义了吗?
如：const WMNID = WM_USER + 100;  //WM_USER  = $0400;//发送消息合法吗?
PostMessage(Handle, WMNID, 0, WM_LBUTTONUp);

Answer 5

晕！
我的基础太差劲了，希望能和两位在QQ上多学习一下，加我的QQ好吗？
12416204，谢谢！

Answer 6

搞定了！
但是把这个方法声明成form的方法。要是我就想声明一个函数，然后用，该怎么办？难不成必须声明成form的方法？