Classe: tDialog
Cria uma janela de diálogo, no programa, para entrada de dados não modal. Desta forma, é permitido que outras janelas recebam dados enquanto esta estiver ativa.
New
Método construtor da classe.
tDialog(): New (
[ nTop], [ nLeft], [ nBottom], [ nRight], [ cCaption], [ uParam6], [ uParam7], [ uParam8], [ uParam9], [ nClrText], [ nClrBack], [ uParam12], [ oWnd], [ lPixel], [ uParam15], [ uParam16], [ uParam17], [ nWidth], [ nHeight] ) --> 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 | Qualquer | Compatibilidade. | | |
uParam7 | Qualquer | Compatibilidade. | | |
uParam8 | Qualquer | Compatibilidade. | | |
uParam9 | Qualquer | Compatibilidade. | | |
nClrText | Numérico | Indica a cor do texto. | | |
nClrBack | Numérico | Indica a cor de fundo. | | |
uParam12 | Qualquer | 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. | | |
nWidth | Numérico | Indica a largura da janela em pixels. | | |
nHeight | Numérico | Indica a altura da janela em pixels. | | |
oObjeto() - Retorna o objeto criado.
Activate
Apresenta o diálogo.
tDialog(): Activate (
[ uParam1], [ uParam2], [ uParam3], [ lCentered], [ bValid], [ uParam6], [ bInit], [ uParam8], [ uParam9] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
uParam1 | Qualquer | Compatibilidade. | | |
uParam2 | Qualquer | Compatibilidade. | | |
uParam3 | Qualquer | Compatibilidade. | | |
lCentered | Lógico | Indica se a janela será (.T.) ou não (.F.) centralizada. O padrão é falso (.F.). | | |
bValid | Bloco de código | Indica se o conteúdo do diálogo é válido. Se o retorno for falso (.F.), o diálogo não será fechado quando a finalização for solicitada. | | |
uParam6 | Qualquer | Compatibilidade. | | |
bInit | Bloco de código | Indica o bloco de código que será executado quando o diálogo iniciar a exibição. | | |
uParam8 | Qualquer | Compatibilidade. | | |
uParam9 | Qualquer | Compatibilidade. | | |
oDlg:Activate(,,,.T.,{||msgstop('validou!'),.T.},,{||msgstop('iniciando…')} )
End
Finaliza o diálogo.
tDialog(): End (
) --> lRet
lRet(logico) - Retorna verdadeiro (.T.) se finalizar o diálogo; caso contrário, retorna falso (.F.).
hasFocus
Indica se o componente esta em foco.
tDialog(): hasFocus (
) --> lFocus
lFocus(logico) - Retorna, verdadeiro (.T.), se o componente está em foco; caso contrário, falso (.F.).
LOCAL focus := oDialog:hasFocus()
windowState
Indica o estado atual do componente.
tDialog(): windowState (
) --> nState
nState() - Retorna um número inteiro indicando o estado atual do componente. Sendo: 0=Restaurado, 1=Minimizado e 2=Maximizado.
LOCAL state := oDialog:windowState()
Propriedade | Descrição | Tipo |
bFocusChange | Indica se o componente esta ou não em foco. Para mais informações desta propriedade, consulte a área Observações. | Bloco de código |
bWindowState | Indica o estado atual do componente (0 = restaurado, 1 = Minizado e 2 = Maximizado). Para mais informações desta propriedade, consulte a área Observações. | Bloco de código |
nResult | Indica como a classe tDialog foi finalizada. Se 0, foi finalizada pelo método End() ou 2, foi finalizada através do botão fechar. | Numérico |
Importante | - Recomendamos a utilização da classe MsDialog que é herdada dessa classe.
- Os métodos windowState() e hasFocus() estarão disponíveis após a build 7.00.101202A.
- As propriedades bWindowState e bfocusChange estarão disponíveis após a build 7.00.101202A.
| Propriedade: windowState Parâmetro | Descrição | o | Indica a instância do objeto TDialog. | State | Indica o estado atual do componente. Sendo: 0 = restaurado, 1 = Minimizado e 2 = Maximizado. | Exemplo:oDialog:bWindowState := {|o,state| showState(state)}
Propriedade: bFocusChange Parâmetro | Descrição | o | Indica a instância do objeto TDialog. | focus | Indica se o componenten está em foco (.T.) ou sem foco (.F.). | Exemplo:
oDialog:bFocusChange := {|o,focus| showFocus(focus)}
#include "TOTVS.CH"User Function TDialog() // cria diálogo Local oDlg := TDialog():New(180,180,550,700,'Exemplo TDialog',,,,,CLR_BLACK,CLR_WHITE,,,.T.) // ativa diálogo centralizado oDlg:Activate(,,,.T.,{||msgstop('validou!'),.T.},,{||msgstop('iniciando…')} )Return
Exemplo da classe tDialog
Advanced Protheus 6.09
,
Advanced Protheus 7.10
,
Microsiga Protheus 8.11
,
Microsiga Protheus 11
,
Protheus 10
,
TOTVS Application Server 10
,
ByYou Application Server
|