Цитата:
|
Сообщение от Помидоркин
class(TCustomControl) не работает KeyDown
|
Должно работать. Возможно у тебя элемент управления не получает фокуса ввода по щелчку мыши. Нужно делать примерно так:
Код:
type
TBaseGrid = class(TCustomControl)
.....
protected
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
.....
end;
.....
procedure TBaseGrid.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
inherited;
if CanFocus then SetFocus;
end;