【结贴】消息问题**

didi0225

uses
  Business.System, Business.Forms, Business.Data,Borland.Delphi.Messages;

type
  TMainForm = class(TForm)
  private
    {private declarations}
  public
    { Public declarations }
     procedure   dd(var   Msg:TMessage);message   WM_NCLBUTTONDBLCLK;
  end;

implementation

  procedure   TForm1.dd(var   Msg:   TMessage);
  begin
      Close;
  end;
end.

这段代码编译不过,帮看下怎么修改
在DELPHI 7.0 那可以运行

zfang

报什么错误呢。

didi0225

[错误]Biz:\YYXXGLXT\CS\DSJKCS.FUNC.DIR\MainForm.Form.pas(16, 40): line 16: unexpected token: ;
[错误]Biz:\YYXXGLXT\CS\DSJKCS.FUNC.DIR\MainForm.Form.pas(16, 41): line 16: expecting ';', found 'message'
[错误]Biz:\YYXXGLXT\CS\DSJKCS.FUNC.DIR\MainForm.Form.pas(16, 51): line 16: expecting "end", found 'WM_NCLBUTTONDBLCLK'
[错误]Biz:\YYXXGLXT\CS\DSJKCS.FUNC.DIR\MainForm.Form.pas(17, 3): line 17: expecting "implementation", found 'end'
[错误]Biz:\YYXXGLXT\CS\DSJKCS.FUNC.DIR\MainForm.Form.pas(17, 6): line 17: expecting "end", found ';'

zfang

平台不支持。

didi0225

结