怎样自制消息机制？(50分)

怎样类似于WINDOWS建立自己的消息机制，然后用POSTMESSAGE，GETMESSAGE来进行应用？
顺便问一下有谁有关于消息方面比较全的资料？

你是想用自定义消息吧。
如果消息是在应用程序之间传递，首先要在发送和接受程序中注册消息
MsgId = RegisterWindowMessage('MyMessage'); //只要注册字符串相同即可
在发送程序中
PostMessage(FindWindow('TApplication', 'Application1'/*Application.Title*/),
; MsgId, 0, 0);
在接受程序中使用TApplicationEvents控件，在OnMessage中写
if (Msg.message = MsgId) then
begin
; /*do ...*/
end

首先，在接口处声明消息常量 const WM_MYMESSAGE=WM_USER
private
procedure appmessage(var msg:tmsg);message WM_MYMESSAGE;
代码部分
procedure tform1.oncreate(sender:tobject);
begin
application.message:=appmessage;
end;
procedure tform1.appmessage(var msg:tmsg);//自定义消息
begin
if msg.msg=WMMYMESSAGE then
showmessage('获得消息');
end;
procedure tform1.button1onclick(sender:=tobject);//发送消息
begin
postmessage(handle,WM_MYMESSAGE,1,0);
end;
end.
以上是个例子，我身边没有delphi，大概应该是这样。回去试一下吧[][]

谢谢，回头我试试