KeyDown事件

Question

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;
控件是显示了该事件，但不知道为什么，不能触发该事件

Answer 1

从TControl继承下来, 再加下面这句就行了
published 
      property OnKeyDown; 

Answer 2

我是从TGraphicControl 继承的，而TGraphicControl是从TContro继承来的。关键是基类TContro根本就没有keydown。

Answer 3

TGraphicControl不是WinControl，不能响应键盘消息的。