KeyDown事件
delphi开了一个控件，由于基类没有KeyDown事件，所以这个事件要自己写。控件安装后该事件有了，可按键时就是不响应。代码如下，请各位帮忙。在线结贴
1、private
FOnKeyDown: TKeyEvent;
2、protected
procedure KeyDown(var Key: Word; Shift: TShiftState);

3、procedure TSuns_SpecGraph.KeyDown(var Key: Word; Shift: TShiftState);
begin
if Assigned(FOnKeyDown) then FOnKeyDown(Self, Key, Shift);
end;

4、发布
published
property OnKeyDown: TKeyEvent read FOnKeyDown write FOnKeyDown;


控件是显示了该事件，但不知道为什么，不能触发该事件

[解决办法]
从TControl继承下来, 再加下面这句就行了
published
property OnKeyDown;
[解决办法]