Á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 2 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.


TSrvObject -> tWindow -> tDialog -> MSDialog

 

 


New

New

Método construtor da classe.


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


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.
    oObjeto()
  • Retorna o objeto criado.

oDlg := MSDialog():New(180,180,550,700,'Exemplo MSDialog',,,,,CLR_BLACK,CLR_WHITE,,,.T.)

 

 


#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

Exemplo da classe MSDialog

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

  • Sem rótulos