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);
end;
Message.CharCode:= 0;
end;
...
inherited;
end;
...
Un saludo.