Classe: MsDialogCria 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. NewMétodo construtor da classe. MsDialog(): New ( [ nTop], [ nLeft], [ nBottom], [ nRight], [ cCaption], [ uParam6], [ uParam7], [ uParam8], [ uParam9], [ nClrText], [ nClrBack], [ uParam12], [ oWnd], [ lPixel], [ uParam15], [ uParam16], [ uParam17], [ lTransparent] ) --> oObjeto | Nome | Tipo | Descrição | Obrigatório | Referência | | nTop | Numérico | Indica a coordenada vertical superior em pixels ou caracteres. | | | | nLeft | Numérico | Indica a coordenada horizontal esquerda em pixels ou caracteres. | | | | nBottom | Numérico | Indica a coordenada vertical inferior em pixels ou caracteres. | | | | nRight | Numérico | Indica a coordenada horizontal direita em pixels ou caracteres. | | | | cCaption | Caracter | Indica o título da janela. | | | | uParam6 | Caracter | Compatibilidade. | | | | uParam7 | Numérico | Compatibilidade. | | | | uParam8 | Lógico | Compatibilidade. | | | | uParam9 | Qualquer | Compatibilidade. | | | | nClrText | Numérico | Indica a cor do texto. | | | | nClrBack | Numérico | Indica a cor de fundo. | | | | uParam12 | Objeto | Compatibilidade. | | | | oWnd | Objeto | Indica a janela mãe (principal) da janela que será criada. O padrão é a janela principal do programa. | | | | lPixel | Lógico | Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.). | | | | uParam15 | Qualquer | Compatibilidade. | | | | uParam16 | Qualquer | Compatibilidade. | | | | uParam17 | Qualquer | Compatibilidade. | | | | lTransparent | Lógico | Se .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) |
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…')} )ReturnExemplo da classe MSDialog  Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 |