Identificar que tecla he pulsado

[ecfisa]

Hola.

También puedes limitar la comprobación a los edits:

Código PHP:

void __fastcall TForm1::CMDialogKey(TWMKey& msg)
{
  if (ActiveControl->ClassNameIs("TEdit"))
    Valida = !(msg.CharCode == VK_TAB && GetKeyState(VK_SHIFT) < 0);
  TForm::Dispatch(&msg);
} 


O sólo al edit en cuestión:

Código PHP:

void __fastcall TForm1::CMDialogKey(TWMKey& msg)
{
  if (ActiveControl->Name == "edCenso" )
    Valida = !(msg.CharCode == VK_TAB && GetKeyState(VK_SHIFT) < 0);
  TForm::Dispatch(&msg);
} 


Saludos

[Angel.Matilla]

Gracias ecfisa. El ejemplo que me has mandado funciona perfectamente. Tengo que ver que estoy haciendo mal para que a mi no me funcione.

[Angel.Matilla]

Ya encontré que estaba haciendo mal. Estaba definiendo mal esa variable Valida y por eso no hacía bien el proceso. Gracias a todos.

[[ElKurgan]]

Gracias a ti, por compartir la solución

Un saludo