Agregar Evento a una Clase

[ecfisa]

Hola.

No sé, realmente no se me había ocurrido experimentar con esas teclas en un TPanel...
Probá si de este modo le das solución:

Código Delphi [-]
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    ...
  private
    procedure CMDialogKey(var Message: TCMDialogKey); message CM_DIALOGKEY;
  public
  end;
...

implementation

procedure TForm1.CMDialogKey(var Message: TCMDialogKey);
begin
  if Panel1.Focused then  
  begin
    case Message.CharCode of
      VK_LEFT  : ShowMessage('VK_LEFT');
      VK_RIGHT : ShowMessage('VK_RIGHT');
      VK_UP    : ShowMessage('VK_UP');
      VK_DOWN  : ShowMessage('VK_DOWN');
      VK_TAB   : Perform(WM_NEXTDLGCTL, 1, 0);  (* para abandonar el foco *)
    end;
    Message.CharCode:= 0; (* no pierde el foco con: VK_UP,... *)
  end;
   ...
   inherited;
end;
...

Un saludo.