El usuario dispone de varios campos de entrada TEXTBOX y cuando salta a otro campo, osea, cuando pierden el foco son dirigidos a una función de búsqueda y retorna.
Para ilustrar el problema he cogido un programa ejemplo de HMG y lo he puesto a continuación. El caso es que después de varias pruebas, no consigo que me funcione.
Si por el contrario cambio el ON LOSTFOCUS por un ON ENTER, entonces funciona sin problemas, pero entonces no detecta de los cambios con el Ratón.
¿Alguien me puede iluminar...?
Muchas gracias.
Code: Select all
/*
* HMG - Harbour Win32 GUI library Demo
*
* Copyright 2002 Roberto Lopez <mail.box.hmg@gmail.com>
* http://www.hmgforum.com//
*/
#include "hmg.ch"
Function Main
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 640 HEIGHT 480 ;
TITLE 'HMG Demo' ;
MAIN
@ 10,10 TEXTBOX Text_1 ;
VALUE 123 ;
TOOLTIP 'Numeric TextBox' ;
NUMERIC ;
MAXLENGTH 5 ;
RIGHTALIGN ;
ON LOSTFOCUS Poner_ventana("PRIMERA" )
@ 40,10 TEXTBOX Text_2 ;
VALUE 123 ;
TOOLTIP 'Numeric TextBox' ;
NUMERIC ;
MAXLENGTH 5 ;
RIGHTALIGN ;
ON LOSTFOCUS Poner_ventana("SEGUNDA")
END WINDOW
Form_1.Center
Form_1.Activate
Return Nil
STATIC PROC Poner_Ventana(cTitulo)
* IF !IsWIndowActive (Form_2)
DEFINE WINDOW Form_2 ;
AT 0,0 ;
WIDTH 140 HEIGHT 180 ;
TITLE cTitulo ;
MODAL
@ 50,10 TEXTBOX Text_2 ;
VALUE 123 ;
TOOLTIP 'PASA SALIR' ;
NUMERIC ;
MAXLENGTH 5 ;
RIGHTALIGN
DEFINE BUTTON D
ROW 10
COL 10
WIDTH 160
CAPTION 'Pulsa para salir'
ACTION Form_2.Release
END BUTTON
END WINDOW
Form_2.Center
Form_2.Activate
* ENDIF
RETURN