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