Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
portuguese
Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css

Pagetitle

...

Classe TDialog

Classe

...

TDialog

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

...

Construtores

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], [lTransparent] ) --> 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.  
uParam6QualquerCompatibilidade.  
uParam7QualquerCompatibilidade.  
uParam8QualquerCompatibilidade.  
uParam9QualquerCompatibilidade.  
nClrTextNuméricoIndica a cor do texto.  
nClrBackNuméricoIndica a cor de fundo.  
uParam12QualquerCompatibilidade.  
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.  
nWidthNuméricoIndica a largura da janela em pixels.  
nHeightNuméricoIndica a altura da janela em pixels.  
lTransparentLógicoSe .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 := TDialog():New(00, 00, 800, 1000, "Janela sem borda",;
,,,nOr(WS_VISIBLE,WS_POPUP),;
0, 16777215,,,.T.,,,,,,lTransparent)

 

oObjeto
    ()
  • Retorna o objeto criado.

Activate

Apresenta o diálogo.

TDialog(): Activate ( [ uParam1], [ uParam2], [ uParam3], [ lCentered], [ bValid], [ uParam6], [ bInit], [ uParam8], [ uParam9] ) -->

 

NomeTipoDescriçãoObrigatórioReferência
uParam1QualquerCompatibilidade.  
uParam2QualquerCompatibilidade.  
uParam3QualquerCompatibilidade.  
lCenteredLógicoIndica se a janela será (.T.) ou não (.F.) centralizada. O padrão é falso (.F.).  
bValidBloco de códigoIndica 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.  
uParam6QualquerCompatibilidade.  
bInitBloco de códigoIndica o bloco de código que será executado quando o diálogo iniciar a exibição.  
uParam8QualquerCompatibilidade.  
uParam9QualquerCompatibilidade.  

 

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.).
oDlg:End()

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()

 

PropriedadeDescriçãoTipo
bFocusChangeIndica se o componente esta ou não em foco. Para mais informações desta propriedade, consulte a área Observações.Bloco de código
bWindowStateIndica 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
nResultIndica 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

 

 

Inclusão de trecho
Classe TDialog - Construtores
Classe TDialog - Construtores
nopaneltrue

Propriedades

Inclusão de trecho
Classe TDialog - Propriedades
Classe TDialog - Propriedades
nopaneltrue

Métodos

Inclusão de trecho
Classe TDialog - Métodos
Classe TDialog - Métodos
nopaneltrue

Observações

...

  • Recomendamos a utilização da classe MsDialog que é herdada

...

  • desta classe.
  • Os métodos windowState() e hasFocus()

...

  • , bem como as propriedades bWindowState e bfocusChange

...

  • , estão disponíveis somente em builds superiores a 7.00.101202A.

...

Exemplos

Propriedade: windowStateParâmetroDescriçãoExemplo:
oDialog:bWindowState := {|o,state| showState(state)}
 

Propriedade: bFocusChange

Bloco de código
language
cpp
themeEclipse
titleExemplo 1
linenumberstrue
collapsefalse
  
oIndica a instância do objeto TDialog.
StateIndica o estado atual do componente. Sendo: 0 = restaurado, 1 = Minimizado e 2 = Maximizado.
ParâmetroDescrição
oIndica a instância do objeto TDialog.
focusIndica 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…
iniciando…')} )


  Return

Exemplo da classe TDialog

Image Modified

Abrangência

Advanced Protheus 6.09, Advanced Protheus 7.10, Microsiga Protheus 8.

...

11, Protheus 10, TOTVS Application Server 10,

...

TOTVS Application Server

...

...

11