D
dcs_dcs
Unregistered / Unconfirmed
GUEST, unregistred user!
自己开了一个控件,由于基类没有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;控件是显示了该事件,但不知道为什么,不能触发该事件