Cómo usar dev C para programar un cuadro de diálogo similar a Windows
hola: diálogo {
etiqueta = "Cuadro de diálogo de muestra"
: editar {
etiqueta = "Ingresar:"; clave = "editar1";
}
: botón {
clave = "aceptar"
etiqueta = "Aceptar";
is_default = true;
}
}
Archivo de programa: el contenido de entrada se guarda en el valor de la variable del sistema
(defun C:HELLO(/dcl_id)
(setq dcl_id (load_dialog "hello.dcl")); Cargar archivo DCL
(if (not (new_dialog " hola") " dcl_id)) ; Inicializar cuadro de diálogo
(salir); Salir si no funciona
)
(action_tile "aceptar" " (setq value (get_tile \"edit1\")) (done_dialog 1)")
(start_dialog); Mostrar cuadro de diálogo
(unload_dialog dcl_id); Descargar archivo DCL
(principio)