[Помидоркин]

Собсвенно сабж

Код:

  type
   TBaseGrid = class(TCustomControl)
          ..........
   protected
    procedure Paint; override;
    procedure Click; override;
    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
         ...........
  end;

procedure TBaseGrid.KeyDown(var Key: Word; Shift: TShiftState);
begin inherited KeyDown(Key, Shift);
 if Key = VK_RETURN then ShowMessage('Попал');
{case Key of
  VK_:  SetEdt(Edt.EdtRow,Edt.EdtCol+1);
  VK_RIGHT: SetEdt(Edt.EdtRow,Edt.EdtCol+1);
end;                                                   }

end;

Click работает, Form1.KeyPreview:= True; не помогает
полагаю нужна еще иформация, но незнаю какая, не выкладывать же весь проект