Ver Mensaje Individual
  #1  
Antiguo 24-11-2018
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.591
Reputación: 21
newtron Va camino a la fama
Validando datos con el evento OnExit en un TEdit de Firemonkey

Hola.

Necesito hacer un pequeño programa con firemonkey para una consulta a una base de datos. Estoy haciendo unas pruebas introduciendo un valor en un Edit, en el evento "exit" hago la búsqueda en la base de datos y si no existe doy un mensaje y vuelvo a poner el foco en el Edit. El problema es que el foco se va al siguiente Edit y curiosamente no permite luego "picar" en él con el ratón pero si coge el foco si pulso "Shift+Tab". Imagino que esto en firemonkey tendrá un tratamiento distinto pero no doy con él. ¿Alguna idea?


Código de prueba que pongo en el "exit" del primer Edit:


Código Delphi [-]
  ShowMessage('Proyecto no existe');
  Edit1.SetFocus;


Gracias y un saludo
__________________
Be water my friend.
Responder Con Cita