TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user admin

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Usuário desconhecido (mferreira)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
MsDialog
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
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.
uParam18Array of RecordCompatibilidade.
uParam19Array of RecordCompatibilidade.
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