Identificar que tecla he pulsado

[Angel.Matilla]

En concreto estoy tratando de saber si se ha pulsado Shift + Tab para volver al campo de edición anterior. Tengo puesto este código en el evento OnKeyDown:
if (Key == VK_TAB && Shift.Contains(ssShift))
Edit1->OnExit = NULL;
pero sólo me reconoce la pulsación de Tab.

[Casimiro Notevi]

¿Eso no lo hace de forma predeterminada?

[Angel.Matilla]

No. Sólo me reconoce haber pulsado el TAB.

[fjcg02]

Revisa wl orden de tabulación de las cajas de edición.

Esto lo hace el SO de forma automática.

Saludos

[Angel.Matilla]

Revisa wl orden de tabulación de las cajas de edición.

Esto lo hace el SO de forma automática.

Saludos

No entiendo que quieres decir.

[Casimiro Notevi]

La propiedad taborder de los componentes de edición.

[Angel.Matilla]

La propiedad taborder de los componentes de edición.

Vale.
https://i.ibb.co/8B1PTJZ/Panel.jpg
En este panel el TabOrder es 0 a 3 desde la izquierda. Si estoy en el último campo (Censo) y no he puesto ninguna cantidad pero tengo que volver hacia atrás, al salir de ese Edit se hace una validación para que no se ponga un valor nulo o incorrecto y no se me ocurre como evitar esa validación; por eso estaba intentando hacerlo en el OnKeyDown.

[ecfisa]

Hola.

Intenta de este modo:

.h

...

class TForm1 : public TForm
{
__published: // IDE-managed Components
TEdit *Edit1;
TEdit *Edit2;
TEdit *Edit3;
TEdit *edCenso;
void __fastcall edCensoExit(TObject *Sender);
private: // User declarations
void __fastcall CMDialogKey(TWMKey& msg);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(CM_DIALOGKEY, TWMKey, CMDialogKey)
END_MESSAGE_MAP(TForm)
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};

...


.cpp

...

bool Valida = true;

void __fastcall TForm1::edCensoExit(TObject *Sender)
{
if (Valida)
ShowMessage("SE VALIDA");
else
ShowMessage("NO SE VALIDA");
}


void __fastcall TForm1::CMDialogKey(TWMKey& msg)
{
Valida = !(msg.CharCode == VK_TAB && GetKeyState(VK_SHIFT) < 0);
TForm::Dispatch(&msg);
}


Saludos :)

[Angel.Matilla]

Hola.

Intenta de este modo:
Saludos :)
Gracias por la ayuda. Funciona pero al entrar en OnExit me da un error Stack Overflow, y es que sigue yendo a validar las teclas pulsadas.

[ecfisa]

Hola de nuevo.

Tal vez haya algún evento mas en juego en tu código. En mi prueba, que realiza la validación en el evento OnExit, no dá error en absoluto.

Te adjunto la prueba para que cotejes, espero que te sirva.

Saludos :)

[ecfisa]

Hola.

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

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:

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