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.
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
| 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. | | |
| uParam18 | Array of Record | Compatibilidade. | | |
| uParam19 | Array of Record | Compatibilidade. | | |
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
|