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]

Empezado por fjcg02

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]

Empezado por Casimiro Notevi

La propiedad taborder de los componentes de edición.

Vale.

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

Código PHP:

...

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

Código PHP:

...

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]

Empezado por ecfisa

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:

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