tive um problema com a versao atual usando abas e Text Control .. não navega com o Enter entre os gets ... e ja na versao 2.17 funciona normalmente ..
se quiserem testar compilem este codigo na versao e verao o problema ..
Código: Selecionar todos
FUNCTION _teste( )
LOCAL oDlg, oPage1, oPage2, oEdit1, oEdit2
LOCAL vEdit1 := "" , vEdit2 := ""
INIT DIALOG oDlg TITLE "Form1" ;
AT 0, 0 SIZE 1490,576 CLIPPER NOEXIT ;
STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+WS_SIZEBOX+DS_CENTER
Thisform := oDlg
@ 6,5 TAB oPage1 ITEMS {} SIZE 1479,554 ;
STYLE 0 +0
BEGIN PAGE 'Page 1' OF oPage1
END PAGE OF oPage1
BEGIN PAGE 'Page 2' OF oPage1
@ 5,29 TAB oPage2 ITEMS {} SIZE 1467,516 ;
STYLE 0 +0
BEGIN PAGE 'Page 1' OF oPage2
@ 40,73 GET oEdit1 VAR vEdit1 SIZE 80,24
@ 47,124 GET oEdit2 VAR vEdit2 SIZE 80,24
END PAGE OF oPage2
BEGIN PAGE 'Page 2' OF oPage2
END PAGE OF oPage2
BEGIN PAGE 'Page 3' OF oPage2
END PAGE OF oPage2
END PAGE OF oPage1
BEGIN PAGE 'Page 3' OF oPage1
END PAGE OF oPage1
BEGIN PAGE 'Page 4' OF oPage1
END PAGE OF oPage1
ACTIVATE DIALOG oDlg
RETURN oDlg:lresult

