Histórico da Página

#include 'totvs.ch'

User Function TGroup()
Local oDlg, oGet
Local cPassW := space(20)
Local oGrp

DEFINE DIALOG oDlg TITLE "Exemplo tGroup" FROM 180,180 TO 550,700 PIXEL

// Cria o grupo
@ 10,10 GROUP oGrp TO 60,200 LABEL "Grupo de Teste" PIXEL

// Cria o Objeto tGet usando o comando @ .. GET 
@ 20,15 GET oGet VAR cPassW SIZE 150,20 OF oDlg PIXEL VALID !empty(cPassW) PASSWORD

ACTIVATE DIALOG oDlg CENTERED

Return