第一步:设置用户消息常量
const WM_MYMessage = WM_USER+100;
创建方法
procedure ProcessMyMessage(var msg:TMsg);message WM_MYMESSAGE;
触发消息
SendMessage(Handle,WM_MYMESSAGE,0,0);
第一步:设置用户消息常量
const WM_MYMessage = WM_USER+100;
创建方法
procedure ProcessMyMessage(var msg:TMsg);message WM_MYMESSAGE;
触发消息
SendMessage(Handle,WM_MYMESSAGE,0,0);