Histórico da Página
...
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#include "TOTVS.CH"
User Function TGet()
DEFINE DIALOG oDlg TITLE "Exemplo TGet" FROM 180,180 TO 550,700 PIXEL
// Usando o New
cTGet1 := "Teste TGet 01"
oTGet1 := TGet():New( 01,01,{|u|if(PCount()==0,cTGet1,cTGet1:=u)},oDlg,096,009,; "@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,, )
// Usando o Create
cTGet2 := "Teste TGet 02"
oTGet2 := TGet():Create( oDlg,{|u|if(PCount()==0,cTGet2,cTGet2:=u)},14,01,096,009,; "@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet2,,,, )
ACTIVATE DIALOG oDlg CENTERED
Return
|
Exemplo da classe TGet
Referências
A construção de um componente da classe TGET também pode ser feita através do comando AdvPL @ .. GET
Abrangência
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas