TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 4 Próxima »

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
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], [ uParam18], [ uParam19] ) --> 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.  

 

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…')} )Return

Preview
Exemplo da classe MSDialog

Abrangência
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10

 

  • Sem rótulos