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