请教： 事件和消息的联系？

位大虾， 
     这个问题在VCL中是怎样处理的呀？ 
  例如：Tedit中有一个事件是onkeypress,应用如下：

   procedure tform1.edit1keypress(sender:tobject;var key:char);     begin     end; 

   那么这个事件是怎么样和WIN32中的WM-CHAR联系上的呢？ 
   VCL是怎么做的？

---

TWinControl     procedure WMChar(var Message: TWMChar); message WM_CHAR;  ...   procedure TWinControl.WMChar(var Message: TWMChar);  begin   if not DoKeyPress(Message) then inherited; //这里开始消息响应  end;   function TWinControl.DoKeyPress(var Message: TWMKey): Boolean;  var   Form: TCustomForm;   Ch: Char;  begin 

  Result := True;   Form := GetParentForm(Self);   if (Form <> nil) and (Form <> Self) and Form.KeyPreview and     TWinControl(Form).DoKeyPress(Message) then Exit;   if not (csNoStdEvents in ControlStyle) then     with Message do     begin       Ch := Char(CharCode);       KeyPress(Ch); //再看这里       CharCode := Word(Ch);       if Char(CharCode) = #0 then Exit;     end;   Result := False;

end;   procedure TWinControl.KeyPress(var Key: Char);  begin   if Assigned(FOnKeyPress) then FOnKeyPress(Self, Key);  end; 

---

你可以在程序的开头（在Uses后面）先将你的消息赋值为一个常量，如：

const MyMessage = WM_User+1;

然后你要自己定义这个消息的结构，如：

TMyMSG=packed record   MSG:Cardinal;   param1:integer;   param2:integer;   .. //这里既然是自定义的消息结构，要多少个参数你自己定   end;

调用的时候Var MSG1:TMyMSG;说明这个消息是MyMSG消息的结构形式的。 
这样你只要将常量中定义的MyMessage作为MSG1的域MSG的值就可以发送了。 
再说说发送吧，你如果是向窗口过程发送的话（处理后返回），用SendMessge，向消息队列 
中发送消息（立即返回）用PostMessege()；如果是在程序内部发送消息给程序特定的消息过 
程处理，你可以用Tobject的Dispatch()这种方式最简单。 
如何确定消息处理过程？ 
将你的特定过程定义在类的Private部分，并且标明Message MyMessage说明这是一个消息过 
程。然后在实现部分将这个过程实现过程写好（注意这里不要Message MyMessage）。这样 
你就可以处理自定义的消息了。 
这里简单写一下代码，你自己再看看

const MyMessage = WM_User+1;

Type    TMyMSG = packed record     MSG:Cardinal;     param1:integer;     param2:integer;   end;

  TForm1=Class(TForm)   ..   Private     Procedure Mychuli(var msg: TMyMSG);Message MyMessage;   ..

  Implementation

  Procedure TForm1.Mychuli(var msg:TMyMSG);   begin     MessageBeep(0);   end;

  Procedure TForm1.Button1Click(Sender:Tobject);//单击Button1发送消息   Var MSG1: TMyMSG;   begin     MSG1.MSG:=MyMessage;     Dispatch(MSG1);//这是由TForm1负责发送的   End;

  ..  End.

还有几个方法可以在不同的层次上截获消息。这个就要你自己看看了。