Identificar que tecla he pulsado

[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