Hacer evento Tab en TEdit

[GaaK]

Hola todos, he retomado este antiguo debate porque no logro entender...

Sea un Form que contiene varios Edits (u otros componentes que puedan enfocarse vía TAB).

La idea: En Edit1 quiero mostrar el código de la tecla presionada, para ello tengo los dos procedures de dicho Edit así:

Código Delphi [-]
KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 begin
   Edit1.Text := 'Scancode: ' + IntToStr(Key) + ' $' + IntToHex(Key,3);
 end;
 
 KeyPress(Sender: TObject; var Key: Char);
 begin
   { KeyPress isn't called if F1..F12 }
   case Key of
     { 48..57, 96..105 }
     '0'..'9'  : Edit1.Text := Key; //esta línea es para otros propósitos...
   end;
 end;

... mis rutinas funcionan bien y reconocen todas las teclas EXCEPTO la tecla TAB.
Intento reconocerla vía KeyDown (VK_TAB) o en KeyPress(#9) y siempre por siempre se enfoca el siguiente componente (Edit2 por ejemplo).

Lo que quiero: Es que me reconozca la pulsación de TAB y me muestre en Edit1 su código (9) y que termine, así como ocurre al presionar un número por ejemplo.

He intentado lo mencionado arriba (CMDialogKey) y me muestra el mensaje al presionar TAB, pero mi foco sigue moviéndose, quiero que se quede quieto.


Espero sus sabios comentarios

Gracias

- Gaak -

[GaaK]

Antes que me regañen, ya conseguí la solución:

Código Delphi [-]
  private
    { Private declarations }
    procedure CMDialogKey(Var Msg: TWMKey); message CM_DIALOGKEY;

{ ... }

procedure TFormProp.CMDialogKey(var Msg: TWMKEY) ;
begin
   if (ActiveControl.Name='Edit1') then
     case Msg.Charcode of
       VK_TAB: { NOP };
     end
   else inherited; { normal for other keys }
end;

... ahora, al lado de VK_TAB intenté colocarle VK_LWIN o VK_CAPITAL y no funciona para ellos ... en fin ya conseguí lo que quería, pero si alguien puede explicar como detener (así como TAB) las teclas como CAPS, INICIO u otros, bienvenido sea.

Gracias de todas maneras.

- Gaak -