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

位大虾，
     这个问题在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.

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