nRow, nColLinha e coluna em que a área de texto será posicionada. Com PIXEL, as coordenadas partem do canto superior esquerdo do componente pai.
AdvPL Guia@ <nRow>, <nCol> GET [<oMultiGet> VAR] <uVar> MULTILINE [OF <oWnd>] [SIZE <nWidth>, <nHeight>] [WHEN <cbWhen>] [VALID <cbValid>] [READONLY] [NOBORDER] [NO VSCROLL]Cria um campo TMultiGet para edição ou apresentação de textos com várias linhas.
O comando @ ... GET MULTILINE cria uma área de texto ligada a uma variável caractere. Durante a compilação, ele é convertido no construtor New() da classe TMultiGet. Por padrão, o componente permite rolagem vertical quando o conteúdo ultrapassa sua altura; também pode ser configurado como somente leitura, sem borda ou sem rolagem vertical.
@ <nRow>, <nCol> GET [<oMultiGet> VAR] <uVar> MULTILINE [OF <oWnd>] [SIZE <nWidth>, <nHeight>] [WHEN <cbWhen>] [VALID <cbValid>] [READONLY] [NOBORDER] [NO VSCROLL]nRow, nColLinha e coluna em que a área de texto será posicionada. Com PIXEL, as coordenadas partem do canto superior esquerdo do componente pai.
oMultiGet VARVariável que receberá o objeto TMultiGet. Quando o objeto é informado, VAR deve anteceder a variável editada.
uVarVariável caractere cujo texto será apresentado e editado.
MULTILINESeleciona o controle multilinha. TEXT e MEMO também são aceitos, mas MULTILINE é a forma recomendada.
OF oWndDiálogo, painel, folder ou outro contêiner proprietário. OF é a forma recomendada.
SIZE nWidth, nHeightLargura e altura da área de texto.
WHEN cbWhenCondição que determina se o componente pode receber foco.
VALID cbValidValidação executada na perda do foco; deve retornar .T. para permitir a saída.
READONLYPermite seleção e cópia, mas impede alterações no texto.
NOBORDER / NO BORDERCria o componente sem a borda visual padrão.
NO VSCROLLDesabilita a rolagem vertical, mesmo quando existem mais linhas do que a área pode mostrar.
COLOR · SIZE · FONT · PIXELPersonalizam cores, dimensões, fonte e sistema de coordenadas.
#Include "TOTVS.ch"
User Function ExGetMultiline()
Local oDlg
Local oObservacao
Local cObservacao := ""
Define Dialog oDlg Title "Observações do pedido" ;
From 100, 100 To 380, 620 Pixel
@ 15, 20 Get oObservacao Var cObservacao ;
Multiline Size 250, 90 Of oDlg Pixel ;
Valid Len(AllTrim(cObservacao)) <= 500
Activate Dialog oDlg Centered
ReturnO usuário pode inserir quebras de linha. VALID limita o conteúdo a 500 caracteres antes de permitir a saída.
#Include "TOTVS.ch"
User Function ExTextoLeitura()
Local oDlg
Local cTexto := "Orientações:" + CRLF + ;
"1. Confira os dados." + CRLF + ;
"2. Confirme o processamento."
Define Dialog oDlg Title "Orientações" ;
From 0, 0 To 260, 520 Pixel
@ 15, 20 Get cTexto Multiline ReadOnly ;
Size 220, 75 Of oDlg Pixel NOBORDER
Activate Dialog oDlg Centered
ReturnREADONLY preserva seleção e cópia; NOBORDER deixa a apresentação mais discreta.
© 2026 Usina.BR. Todos os direitos reservados. TOTVS, Protheus, Microsiga e seus respectivos logotipos são marcas de titularidade da TOTVS S.A. AdvPL é uma linguagem de programação desenvolvida pela TOTVS. O AdvPL Guia é um projeto independente, sem vínculo, representação, patrocínio ou afiliação com a TOTVS S.A., suas franquias ou representantes.