Classe: TGet
Cria um objeto para entrada de dados editáveis.Esta classe permite armazenar ou alterar o conteúdo de uma variável através da digitação. No entanto, o conteúdo da variável será alterado quando o objeto perder o foco de edição para outro objeto.
TSrvObject -> TControl -> TGet
Propriedade | Descrição | Tipo |
cBuffer | Retorna o texto definido para o objeto. | Caracter |
cPictVar | Indica a máscara de formatação, do conteúdo, que será apresentada. | Caracter |
cText | Retorna o texto definido para o objeto. | Caracter |
lPassword | Indica se, verdadeiro (.T.), o objeto apresentará asterisco (*) para entrada de dados de senha; caso contrário, falso (.F.). | Lógico |
Em builds superiores a 7.00.111010P o idioma do calendário, chamado a partir do componente TGet, respeitará o idioma definido no arquivo de inicialização do AppServer, na tag rpolanguage.
#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,{||cTGet1},oDlg,096,009,; "@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet1,,,, ) // Usando o Create cTGet2 := "Teste TGet 02" oTGet2 := TGet():Create( oDlg,{||cTGet2},14,01,096,009,; "@!",,0,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cTGet2,,,, ) ACTIVATE DIALOG oDlg CENTERED Return
Exemplo da classe TGet
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