TOTVSTEC

Árvore de páginas

Tempo aproximado para leitura: 2 minutos

GetChildCt retorna o número de objetos filhos presente em uma janela.

Sintaxe

GetChildCt( < oWindow > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

oWindow

objeto

Instância da janela ao qual se deseja saber a quantidade de objetos filhos. Somente são suportados objetos que herdam da classe TWindow (TWindow e TDialog)

X

 

Retorno

Nome

Tipo

Descrição

nChildrens

numérico

Retorna o número de objetos filhos adicionados na janela. Em caso de erro o valor -1 será retornado.

Observações

  • As janelas possuem uma limitação da quantidade de objetos que podem ser adicionados. Essa função auxilia no desenvolvimento mostrando o total de objetos filhos que estão instanciados e associados a janela informada.
  • Caso parametro informado seja inválido (não derive da classe TWindow) um warning é gerado no log do servidor e o valor -1 é retornado.
  • Caso ocorra algum exception durante o processamento uma mensagem de erro será gerada no log no servidor.

Exemplos

 user function tstGetWindowCount
  DEFINE DIALOG oDlg TITLE "Exemplo TGroup" FROM 180,180 TO 650,800 PIXEL
 
   oGroup1:= TGroup():New(02,02,130,130,'Objeto TGroup 1',oDlg,,,.T.)
 
   cTGet1 := "Get dentro do TGroup"
   oTGet2 := TGet():New( 18,16,{||cTGet1},oGroup1,100,010,"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,,)
   oTGet3 := TGet():New( 36,16,{||cTGet1},oGroup1,100,010,"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,,)
 
   oGroup2 := TGroup():Create(oDlg,02,140,130,260,'Objeto TGroup 2',,,.T.)
 
   cTGet4 := "Get dentro do TGroup"
   oTGet5 := TGet():New( 18,150,{||cTGet4},oGroup2,100,010,"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet4,,,,)
   oTGet6 := TGet():New( 36,150,{||cTGet4},oGroup2,100,010,"@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet4,,,,)
 
   oTButton1 := TButton():New( 150, 60, "Conta Elementos",oDlg,{||alert("Total de Filhos " + Str(nDgChild))}, 70,10,,,.F.,.T.,.F.,,.F.,,,.F. )
   oTButton2 := TButton():New( 150, 160, "Exemplo Objeto Inválido",oDlg,{||alert("Invalid Object (tGroup)" + Str(nInvObj))}, 70,10,,,.F.,.T.,.F.,,.F.,,,.F. )
   
   nDgChild := GetChildCt(oDlg)
   nInvObj  := GetChildCt(oGroup1)
   ACTIVATE DIALOG oDlg CENTERED
 
 Return

Abrangência

AppServer 13.1.4.0 e 13.2.4.0

Veja também

  • Sem rótulos