如下所示:
  const wm_copydata=wm_app+1;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
   procedure wmpost(var mes:tmessage );message wm_copydata;
如果我还想再声明一个wmincept(var mesz:tmessage);message wm_wm_incept;
并新增const wm_incept=wm_app+1;但出错.
不知能否在一模块中声明两个消息处理函数.该如何声明.