procedure WMNID(var msg:TMessage);message wm_nid;问题??

Question

procedure WMNID(var msg:TMessage);message wm_nid;
提示:Unknown directive: 'message'请问如何解决??

Answer 1

问一下 wm_nid 是什么东西?好象不是系统消息吧?

Answer 2

Const wm_nid=WM_USER+110;procedure WMNID(var msg:TMessage);message wm_nid;

Answer 3

Const
  wm_nid=WM_USER+110;
type
  TForm1 = class(TForm)
  private
    procedure WMNID(var msg:TMessage);message wm_nid;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.WMNID(var msg: TMessage);
beginend;

Answer 4

Const
  wm_nid=WM_USER+110;    procedure WMNID(var msg:TMessage);message wm_nid;