KeyDown у tPanel

← →
Евгений Р. (2007-08-28 15:53) [0]

Есть наследник от tPanel
У него определена процедура
procedure KeyDown(var Key: Word; Shift: TShiftState); dynamic;
Процедура никогда не вызывается. Можно ли исправить ситуацию?

← →
umbra © (2007-08-28 15:56) [1]

можно. Вызовите ее :)
Если серьезно, то непонятно, зачем она в наследнике определена.

← →
Юрий Зотов © (2007-08-28 16:06) [2]

Override, а не dynamic, наверное?

← →
Евгений Р. (2007-08-28 17:24) [3]

Конечно, override, но все равно не вызывается.

> [3] Евгений Р. (28.08.07 17:24)

А у меня вызывается....

TMyPanel = class (TPanel) protected procedure KeyDown(var Key: Word; Shift: TShiftState); override; end; ........ implementation {$R *.dfm} { TMyPanel } procedure TMyPanel.KeyDown(var Key: Word; Shift: TShiftState); begin inherited; Caption:=Caption+CHR(Key); end; //------------------------- procedure TForm1.Button1Click(Sender: TObject); begin with TMyPanel.Create(Self) do begin Parent:=Self; Caption:="1"; SetFocus; end; end; end.

KeyDown у tPanel Найти похожие ветки