delphi 穿件自定义消失

第一步：设置用户消息常量

const WM_MYMessage = WM_USER+100；

创建方法

procedure ProcessMyMessage(var msg:TMsg);message WM_MYMESSAGE;

触发消息

SendMessage(Handle,WM_MYMESSAGE,0,0);