TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 6

changes.mady.by.user Ricardo Mansano Godoi

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Alex De Moura Martins_

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
portuguese
Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css

Pagetitle

...

Colapse ALL

...

Classe MsDialog
Classe

...

MsDialog

Cria uma janela de diálogo, no programa, para entrada de dados do tipo modal. Desta forma, não é permitido que outras janelas recebam dados enquanto esta estiver ativa.

Hierarquia

TSrvObject -> tWindow -> tDialog -> MSDialog

 

...

Construtores

Inclusão de trecho
Classe MsDialog - Construtores
Classe MsDialog - Construtores
nopaneltrue

Exemplos

Bloco de código
themeEclipse
languagecpp
titleExemplo 1
linenumberstrue
collapsefalse
New

New

Método construtor da classe.

Sintaxe

MsDialog(): New ( [ nTop], [ nLeft], [ nBottom], [ nRight], [ cCaption], [ uParam6], [ uParam7], [ uParam8], [ uParam9], [ nClrText], [ nClrBack], [ uParam12], [ oWnd], [ lPixel], [ uParam15], [ uParam16], [ uParam17], [ lTransparent] ) --> oObjeto

Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
nTopNuméricoIndica a coordenada vertical superior em pixels ou caracteres.  
nLeftNuméricoIndica a coordenada horizontal esquerda em pixels ou caracteres.  
nBottomNuméricoIndica a coordenada vertical inferior em pixels ou caracteres.  
nRightNuméricoIndica a coordenada horizontal direita em pixels ou caracteres.  
cCaptionCaracterIndica o título da janela.  
uParam6CaracterCompatibilidade.  
uParam7NuméricoCompatibilidade.  
uParam8LógicoCompatibilidade.  
uParam9QualquerCompatibilidade.  
nClrTextNuméricoIndica a cor do texto.  
nClrBackNuméricoIndica a cor de fundo.  
uParam12ObjetoCompatibilidade.  
oWndObjetoIndica a janela mãe (principal) da janela que será criada. O padrão é a janela principal do programa.  
lPixelLógicoIndica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.).  
uParam15QualquerCompatibilidade.  
uParam16QualquerCompatibilidade.  
uParam17QualquerCompatibilidade.  
lTransparentLógicoSe .T. permitira que a Dialog recebe um fundo transparente.  

 

Nota

Para utilização a propriedade lTransparent é necessário definir a Dialog sem bordas, utilizando a função nOR, conforme exemplo abaixo:

lTransparent := .T.
oDlg := MSDialog():New(0,0,800, 1000,'Janela sem borda',,,,nOr(WS_VISIBLE,WS_POPUP),,,,,.T.,,,,lTransparent)

 

Retorno
oObjeto
    ()
  • Retorna o objeto criado.
Exemplos
oDlg := MSDialog():New(180,180,550,700,'Exemplo MSDialog',,,,,CLR_BLACK,CLR_WHITE,,,.T.)
Observações

 

 

Exemplos
#include "TOTVS.CH"
  User Function MSDialog()
    // Cria diálogo
    Local oDlg := MSDialog():New(180,180,550,700,'Exemplo MSDialog',,,,,CLR_BLACK,CLR_WHITE,,,.T.)
    // Ativa diálogo centralizado
    oDlg:Activate(,,,.T.,{||msgstop('validou!'),.T.},,{||msgstop('
iniciando…
iniciando…')} )
  Return
Preview

Exemplo da classe

...

MsDialog

Image Modified

Abrangência

Advanced Protheus 6.09, Advanced Protheus 7.10, Microsiga Protheus 8.11, Protheus 10

...

, TOTVS Application Server 10, TOTVS Application Server 11