Alguien podría indicarme porque no se ejecuta el valid del get en el init del diálogo
En la versión anterior que tenía antes no había problema.
#include "Fivewin.ch"
//------------------------------------------------------------------------//
FUNCTION main()
Local oDlg, oBtn
DEFINE DIALOG oDlg TITLE "PRUEBA" FROM 1,1 TO 200, 200 PIXEL
@ 2,2 BUTTON "bonton" ACTION Accion1()
ACTIVATE DIALOG oDlg CENTER
RETURN NIL
//------------------------------------------------------------------------//
#DEFINE ODLG aControls[ 1]
#DEFINE OGET1 aControls[ 2]
#DEFINE CGET1 aControls[ 3]
#DEFINE OGET2 aControls[ 4]
#DEFINE CGET2 aControls[ 5]
#DEFINE OBTN1 aControls[ 6]
FUNCTION accion1()
Local aControls := ARRAY(10)
CGET1 := SPACE(10)
CGET2 := SPACE(20)
DEFINE DIALOG ODLG TITLE "PRUEBA2" FROM 1,1 TO 400, 400 PIXEL
@ 1, 1 GET OGET1 VAR CGET1 OF ODLG VALID Prueba1(aControls)
@ 2, 1 GET OGET2 VAR CGET2 OF ODLG
@ 4, 1 BUTTON OBTN1 OF ODLG
ACTIVATE DIALOG ODLG CENTER ON INIT Iniciar(aControls)
return nil
//------------------------------------------------------------------------//
STATIC FUNCTION Prueba1(aControls)
ALERT("VALID")
RETURN .T.
//------------------------------------------------------------------------//
STATIC FUNCTION Iniciar(aControls)
Enter(OGET1)
RETURN NIL
//------------------------------------------------------------------------//
Function Enter(oControl)
oControl:SetFocus()
oControl:PostMsg(WM_KEYDOWN, VK_RETURN, nMakeLong( 0, 0 ) )
return .T.En la versión anterior que tenía antes no había problema.