Classe: TGroup
Cria um objeto do tipo painel, com borda e título, para que outros possam ser agrupados ou classificados.
TSrvObject -> TControl -> TGroup
#include "TOTVS.CH"User Function TGroup() DEFINE DIALOG oDlg TITLE "Exemplo TGroup" FROM 180,180 TO 550,700 PIXEL oGroup:= TGroup():New(02,02,130,130,'Objeto TGroup',oDlg,,,.T.) cTGet1 := "Get dentro do TGroup" oTGet1 := TGet():New( 18,16,{||cTGet1},oGroup,100,010,; "@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,, ) oTGet2 := TGet():New( 36,16,{||cTGet1},oGroup,100,010,; "@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,, ) ACTIVATE DIALOG oDlg CENTERED Return
Exemplo da classe TGroup
![](https://tdn.totvs.com/download/attachments/6063242/Mon+May+21+15%3A39%3A01+BRT+2012TGroup.jpg?version=1&modificationDate=1337625541214)
![](https://tdn.totvs.com/download/attachments/6063242/Mon+May+21+15%3A39%3A01+BRT+2012TGroup.jpg?version=1&modificationDate=1337625541214)
Advanced Protheus 6.09
,
Advanced Protheus 7.10
,
Microsiga Protheus 8.11
,
Microsiga Protheus 11
,
Protheus 10
,
TOTVS Application Server 10
,
ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas