nTop, nLeft, nBottom, nRightNuméricoObligatorio
Coordenadas de la ventana. Con PIXEL, representan el área en píxeles utilizada por SmartClient.
CLASEPublicado
TDialog
TDialog():New( <nTop>, <nLeft>, <nBottom>, <nRight>, <cTitle>, ... )Crea una ventana de diálogo para alojar componentes visuales en rutinas AdvPL.
Descripción general
TDialog es una clase visual utilizada para crear ventanas de diálogo en SmartClient. Funciona como contenedor para componentes como SAY, GET, BUTTON, CHECKBOX, BITMAP, BROWSE, FOLDER y paneles. En una pantalla típica, la rutina crea la dialog, agrega componentes indicando su objeto padre y finalmente llama a Activate() para mostrar la ventana y entregar el control a la interfaz.
Sintaxis
TDialog():New( <nTop>, <nLeft>, <nBottom>, <nRight>, <cTitle>, ... )Parámetros
cTitleCarácterObligatorio
Título mostrado en la barra de la ventana.
Colores de texto/fondoNuméricoOpcional
Colores utilizados en la ventana, normalmente informados mediante constantes disponibles en los includes.
lPixelsLógicoOpcional
Indica que las medidas informadas deben interpretarse en píxeles.
Activate()MétodoObligatorio
Muestra la dialog. Según la versión de la LIB, puede recibir opciones como centrado y bloque de activación.
Ventana simple con TDialog
#Include "TOTVS.ch"
User Function ExTDialog()
Local oDlg
Local nAltura := 180
Local nAncho := 360
Local lUsaPixeles := .T.
Local lCentrada := .T.
Local bAlIniciar := {|| ConOut("Dialog activada") }
oDlg := TDialog():New(0, 0, nAltura, nAncho, ;
"Pantalla usando TDialog", , , , , , , , , lUsaPixeles)
oDlg:Activate(, , , lCentrada, , , bAlIniciar)
ReturnResultado esperado
La dialog se crea en memoria y se muestra centrada. bAlIniciar se ejecuta durante la activación.
TDialog como contenedor de componentes
#Include "TOTVS.ch"
User Function ExTDialogCampos()
Local oDlg
Local cNome := Space(40)
oDlg := TDialog():New(0, 0, 160, 380, "Cadastro rápido", , , , , , , , , .T.)
@ 20, 20 Say "Nome:" Size 40, 10 Of oDlg Pixel
@ 18, 65 Get cNome Size 140, 10 Of oDlg Pixel
@ 50, 65 Button "Confirmar" Size 65, 14 ;
Action MsgInfo("Olá, " + AllTrim(cNome)) Of oDlg Pixel
oDlg:Activate(, , , .T.)
ReturnResultado esperado
SAY, GET y BUTTON se crean como hijos de oDlg. Al hacer clic en el botón, el bloque ACTION utiliza el valor digitado.
Forma declarativa con DEFINE DIALOG
#Include "TOTVS.ch"
User Function ExDefineDialog()
Local oDlg
Define Dialog oDlg Title "Exemplo declarativo" ;
From 0, 0 To 160, 380 Pixel
@ 25, 25 Say "Interface criada por comando" ;
Size 150, 12 Of oDlg Pixel
Activate Dialog oDlg Centered
ReturnResultado esperado
La sintaxis DEFINE/ACTIVATE es más declarativa y el compilador la traduce en llamadas a las clases visuales correspondientes.
- Utiliza TDialog cuando necesites una ventana modal propia para entrada, confirmación o presentación de información.
- Informa el objeto de la dialog como padre de los componentes, normalmente mediante la cláusula OF oDlg.
- Mantén la construcción de la pantalla en tres pasos claros: crear la dialog, posicionar los componentes y activar la ventana.
- Prefiere nombres de variables que indiquen el papel visual del objeto, como oDlg, oGetNombre, oBtnConfirmar y oSayEstado.
- Para pantallas más complejas, evalúa FWDefSize, FWLayer, MVC o componentes de framework que faciliten organización y redimensionamiento.
- Una dialog modal bloquea la interacción con la ventana padre mientras está abierta; es el comportamiento esperado.
- Los componentes sin el padre correcto pueden no aparecer o quedar vinculados a la ventana activa equivocada.
- Mezclar coordenadas en píxeles con otra unidad puede causar desalineación entre entornos.
- Los bloques ACTION extensos dificultan el mantenimiento; llama a funciones auxiliares.
- No utilices TDialog como sustituto de MVC cuando la pantalla requiera modelo de datos, validaciones estructuradas e integración con rutinas de mantenimiento.
Comentarios
Todavía no hay comentarios aprobados.
Inicia sesión con Google o Microsoft para comentar.