I attach an example.
- Code: Select all Expand view
#include "FiveWin.Ch"
FUNCTION MAIN()
LOCAL oWnd, oDlg, oFld, cVar1, cVar2
cVar1 := SPACE(10)
cVar2 := SPACE(15)
DEFINE DIALOG oDlg TITLE "Pruebas" SIZE 400,300
@ 0,0 FOLDER oFld PROMPT "Folder 1", "Folder 2" OF oDlg
#define PADRE1 oFld:aDialogs[1]
@ 1,0 GET cVar1 VALID ( MsgInfo("Valid 1"), .T. ) OF PADRE1
@ 2,0 GET cVar2 VALID ( MsgInfo("Valid 2"), .T. ) OF PADRE1
ACTIVATE DIALOG oDlg ;
CENTER
RETURN NIL
thanks