※※※基于Tpanel的自定义组件，如何加key处理事件？

Question

自定义组件中加的代码：
type
    TKeyPressEvent = procedure(Sender: TObject; var Key: Char) of object;
    TFlxLightPanel = class(TPanel)
    private
        FOnKeyDown:TNotifyEvent;
        FOnKeyUp:TNotifyEvent;
        FOnKeyPress:TKeyPressEvent;
    published
        property OnKeyDown : TNotifyEvent read FOnKeyDown write FOnKeyDown;
        property OnKeyUp : TNotifyEvent read FOnKeyUp write FOnKeyUp;
        property OnKeyPress : TKeyPressEvent read FOnKeyPress write FOnKeyPress;组建做完后，在界面上加上后，加入如下代码：
procedure TMy.lxPanel1KeyDown(Sender: TObject);
begin
  lxPanel1.Value:=lxPanel1.Value+5;
end;procedure TMy.lxPanel1KeyPress(Sender: TObject; var Key: Char);
begin
  lxPanel1.Value:=lxPanel1.Value+5;
end;在按钮上加上代码：
SendMessage(lxPanel1.Handle,WM_KEYDOWN ,VK_UP,0);key事件根本不执行！请教：如何加？

Answer 1

可以参考delphi的twincontrol
    protected
        procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure TMy.KeyDown(var Key: Word; Shift: TShiftState);
begin
  inherited;
//自己的代码
end;

Answer 2

TPanel 已经有了啊。你override 就是了