请教： 事件和消息的联系？？？？？(200分)

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

谢谢SZF大虾，我会给您加分的。

那么怎样自定义一个事件，和非标准消息
（lb_settabstops或M_CHARFROMPOS）联系上呢？
最好有原码。

还有没有大虾愿意说一说呀？

我想接受了。。。。

自己定义一个消息吗？
你可以在程序的开头（在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）。这样
你就可以处理自定义的消息了。
这里简单写一下代码，你自己再看看
[red]
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.
[/red]
还有几个方法可以在不同的层次上截获消息。这个就要你自己看看了。

接受了，谢谢

多人接受答案了。