关于在delphi中的消息传递，

[yztyzt]

如保在delphik 写消息，如何定义，有这方面的文章吗，请提供一下谢谢

[pankun]

const
WM_MYMESSAGE = WM_USER + 1001; //这样就自己定义了一个消息

发送消息可以用
SendMessage, PostMessage

[47522341]

楼主去‘九品御厨’的网站上看看吧；那边有你需要的东西；

[fhuibo]

up

[YYQQ]

const
WM_MYMSG = WM_USER + 100;

....

private
procedure MyMsg(var Msg: TMessage); message WM_MYMSG;

....

procedure TForm1.MyMsg(var Msg: TMessage);
begin
ShowMessage('haha! received a default message');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Form1.Handle, WM_MYMSG, 0, 0);
end;

.....

简单实例, 希望对你有帮助