tab que numero de tecla es

[JODELSA]

hola!

En mis aplicaciones utilizo la tecla Enter para validar y moverse al siguiente campo, de esta manera:

if key = 13 then
begin
.....
....
end;
Quiero Hacer lo mismo pero con la tecla TAB, pero no se cual es el número de esta, si hay algun lugar donde puedo encontrar esto valores diganmelo.

[roman]

9

// Saludos

[marcoszorrilla]

Este ejemplo aunque no funciona con todas las teclas, en concreto con TAB no va, pero te puede servir para la mayoría.

Código Delphi [-]
 
 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin
 Label1.Caption:='Tecla '+inttostr(key);
 end;

Un Saludo.

[roman]

Leyendo la respuesta del amigo Marcos veo que tengo que leer con más detenimiento la pregunta original.

Ciertamente 9 es el código de la tecla de tabulación pero no podrás detectarla con lo métodos usuales de los eventos OnKeyDown, OnKeyUp u OnKeyPress.

La tecla Tab es una tecla especial para mover el foco del control activo y por lo mismo no se manda a los controles de la misma forma que otras teclas.

Un Edit, por ejemplo, no recibe el evento OnKeyDown ni OnKeyPress con esta tecla. Sí recibe el OnKeyUp pero demasiado tarde: si el foco está en Edit1, al oprimir Tab, primero se cambia el foco al siguiente control, digamos Edit2 y éste último es quien recibe el evento.

Podrías intentar poner una componente TApplicationEvents y usar su evento OnMessage para detectar la tecla:

Código Delphi [-]
if (Msg.message = WM_KEYDOWN) and (Msg.WParam = 9) then
  ...

// Saludos

[JODELSA]

Mi problema consiste exactamente en que tengo un edit en mi formulario
y controlo varios proceso cuando el usuario presiona ENTER, pero algunos usuario presionan TAB para salir, por lo que quiero evitar que salgan del edit con TAB, puedo hacerlo tambien en el evento on EXIT y lo hace aunque salgan con TAB, pero en algunas ocaciones me produce un efecto algo incomodo.

[roman]

Pues tal como te dije. Hasta donde probé ayer, si en el evento OnMessage de una componente ApplicationEvents pones

Código Delphi [-]
if (Msg.message = WM_KEYDOWN) and (Msg.WParam = 9) then
  Msg.Wparam := 0;

inhabilitas la tecla del todo.

// Saludos