Usando TFolder

Usar janelas com abas, dependendo da situação, pode ser inevitável. Segue um exemplo, usando TFolder:


#include "TOTVS.CH"

user function fFuncao1()
   define dialog oDialogo title "Exemplo de TFolder" from 180,180 to 550,700 pixel

   // Cria a Folder    
   aTFolder := { "Aba 01", "Aba 02", "Aba 03" }
   oTFolder := tfolder():new( 0,0,aTFolder,,oDialogo,,,,.t.,,260,184 )

   // Insere dois tget na aba 1

   oSay:= tsay():new(1,2,{||"Campo: "}, oTFolder:aDialogs[1],,,,,,.t.,CLR_RED,CLR_WHITE,96,9)
   cTGet1 := "Campo TGet 01"
   oTGet1 := tget():new( 1,25,{||cTGet1},oTFolder:aDialogs[1],96,9,;
             "",,0,,,.f.,,.t.,,.f.,,.f.,.f.,,.f.,.f.,,cTGet1,,,, )

   cTGet2 := "Campo TGet 02"
   oTGet2 := tget():new( 20,25,{||cTGet2},oTFolder:aDialogs[1],96,9,;
             "",,0,,,.f.,,.t.,,.f.,,.f.,.f.,,.f.,.f.,,cTGet2,,,, )

   // Insere um tget na aba 2

   cTGet3 := "Campo TGet 03"
   oTGet3 := tget():new( 1,5,{||cTGet3},oTFolder:aDialogs[2],96,9,;
             "",,0,,,.f.,,.t.,,.f.,,.f.,.f.,,.f.,.f.,,cTGet3,,,, )

   // Insere um tget na aba 3

   cTGet4 := "Campo TGet 04"
   oTGet4 := tget():new( 1,5,{||cTGet4},oTFolder:aDialogs[3],96,9,;
             "",,0,,,.f.,,.t.,,.f.,,.f.,.f.,,.f.,.f.,,cTGet4,,,, )

   activate dialog oDialogo centered
return nil