K kinneng Unregistered / Unconfirmed GUEST, unregistred user! 2005-07-21 #4 一般来说,下面的代码就可以干活了,当然如果是个Ttimer就没有办法 protected procedure KeyDown(var Key:Word; Shift:TShiftState); override; ...... procedure T****.KeyDown(var Key:Word; Shift:TShiftState); begin .... inherited; ..... end;
一般来说,下面的代码就可以干活了,当然如果是个Ttimer就没有办法 protected procedure KeyDown(var Key:Word; Shift:TShiftState); override; ...... procedure T****.KeyDown(var Key:Word; Shift:TShiftState); begin .... inherited; ..... end;