如下所示:
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;但出错.
不知能否在一模块中声明两个消息处理函数.该如何声明.
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;但出错.
不知能否在一模块中声明两个消息处理函数.该如何声明.
不同的消息当然可以
const wm_incept=wm_app+2//2试试
wm_wm_incept=wm_app+2;
const wm_incept=wm_app+2//2试试