怎样在以控件中添加自己需要的触发事件啊？50分送上～～～～～ ( 积分: 48 )

比如在TButton的Event中就没有OnKeyPress事件，我需要这个事件来处理一些问题。
请教大侠们：怎样把这个消息事件添加进去并公布出来啊 ？？
（不知我所说的你们听懂没有，就是使OnKeyPress在控件的Event中出现，双击它就能对KeyPress事件进行处理）

比如在TButton的Event中就没有OnKeyPress事件，我需要这个事件来处理一些问题。
请教大侠们：怎样把这个消息事件添加进去并公布出来啊 ？？
（不知我所说的你们听懂没有，就是使OnKeyPress在控件的Event中出现，双击它就能对KeyPress事件进行处理）

自己从 这个组件上继承一个新的组件：比如从TButton继承(但是我这里TButton有KeyPress事件的哦：）)

type
TMyButton = class(TControl)
private
FKeyPress: TKeyPressEvent;
protected
procedure WMKeyPress(var msg:TWMChar);message WM_CHAR;
published
property OnKeyPress: TKeyPress read FKeyPress write FKeyPress;
end;

procedure TMyButton.WMKeyPress(var msg:TWMChar);
begin
if Assigned(FKeyPress) then
FKeyPress(Self, msg.CharCode);
inherited;
end;

怎么会没有OnKeyPress？会不会弄错了

多谢hongxing_dl，我试试！！！

我只是举的例，在软件开发中这类问题可能随时都会发现。
我要的是这个方法，，谢谢关心！！！