在DELPHI如果定义自己的消息处理程序，如果有源程序最好啊了？

Question

老大
如果能搞定的话
肯定给分了
谢谢
[email protected]

Answer 1

const 
  WM_MTMESSAGE=3000;发消息(比如在Button的Click事件中)
  PostMessage(Hanlde,WM_MYMESSAGE,0,0);收消息
  AMyMessage(Var Msg:TMessage);Message WM_MYMESSAGE;AMyMessage(Var Msg:TMessage);
begin
  ShowMessage('I Get it');
end;要是想在消息中有自己的内容，那要用到全局原子，而且要对TMessage的结构非常了解

Answer 2

TMESSAGE中有WM_ATOMDATA这个消息吗？
TKS

Answer 3

Easy...  const wm_messsage=wm_user+100;
public
  procedure wmmessage(var msg:Tmessage);message wm_message
procedure Tform1.wmmessage(var msg:Tmessage);
begin
  //做你要做的事
end;

Answer 4

老大
他提示错误阿
是不是要在色USE中加什么啊？

Answer 5

不会吧，难道是procedure wmmessage(var msg:Tmessage);message wm_message;//的分号:)