GUíA PRáCTICAEn revisión
Interfaz básica con diálogos, SAY, GET y botones
DEFINE MSDIALOG → @ SAY / GET / BUTTON → ACTIVATE MSDIALOGConstruye pantalla simple sin acoplar edición a persistencia.
Descripción general
Ejemplo crea MSDialog, rótulo SAY, GET ligado a variable local y botón de cierre. GET actualiza contenido al perder foco; validar estado efectivo antes de operar. Cerrar diálogo no confirma ni graba datos. Coordenadas ilustrativas en píxeles. (Fuentes: refs. 1–4.)
Sintaxis
DEFINE MSDIALOG → @ SAY / GET / BUTTON → ACTIVATE MSDIALOGEjemplo comentado
#Include "Protheus.ch"
User Function Ed492()
Local oDlg,oSay,oGet,oBtn
Local cText := Space(20)
DEFINE MSDIALOG oDlg TITLE "Pantalla de prueba" FROM 0,0 TO 160,360 PIXEL
@ 12,12 SAY oSay PROMPT "Texto:" SIZE 50,10 OF oDlg PIXEL
@ 12,65 GET oGet VAR cText SIZE 100,12 OF oDlg PIXEL
// Solo cierra ventana; no graba datos.
@ 45,65 BUTTON oBtn PROMPT "Cerrar" SIZE 55,15 OF oDlg PIXEL ACTION oDlg:End()
ACTIVATE MSDIALOG oDlg CENTERED
Return NilResultado esperado
Pantalla editable en memoria con cierre explícito. En revisión: ejemplo editorial no compilado ni ejecutado en Protheus. Comprobar includes, release, RDD y contexto antes de probar.
- Comprobar expansión de comandos en includes del release y probar navegación por teclado y cierre.
- En revisión: ejemplo editorial no compilado ni ejecutado en Protheus. Comprobar includes, release, RDD y contexto antes de probar.
Comentarios
Todavía no hay comentarios aprobados.
Inicia sesión con Google o Microsoft para comentar.