Unit Mensajes |
NOTAS: } { Para ampliar los botones hay que establecer el nuevo botón en RESULTADOS, TIPO DE MENSAJE, TEXTO DE MENSAJE y añadir la imagen que se desea a mensajes.dcr con el nombre que se ponga en GLYPS como nombre del resource Para ampliar los tipos de mensajes, se ha de establecer el tipo en TMENSAJETIPO,
Classes |
TInputMensajes -
TMensajes -
TObjeto -
Functions |
CreaBotones -
CreaImagen -
CreaVentana - Diseño del Mensaje
DlgMensajes -
InputMensajes - Diseño del Mensaje
MuestraVentana -
Register -
ShowMensajes -
Types |
GrupodeBotones
ResultadoModal
Resultados
TipodeMensaje
TMensajeTipo
Constants |
Cabeceras
Glyps
Imagenes
NumEditores
TextoBotones
Variables |
Boton
BtnDetalle
Editor
FBeep
Fcaption
FDetail
FFormState
FGrupodeBotones
FMensajeError
FMensajeTipo
FocusCount
FResultado
FTitulosdeEditores
Image1
ImageList1
MemoError
MemoMensaje
Objeto
Retorno
Titulo
VentanadeMensajes
Functions |
Types |
GrupodeBotones = set of TipodeMensaje
ResultadoModal = array[TipodeMensaje] of Resultados;
Resultados = (mrNinguno, mrAceptar, mrCancelar, mrBuscar, mrCrear, mrSi, mrNo, mrReintentar, mrAbortar,mrIgnorar, mrCerrar, mrAyuda, mrImprimir);
TipodeMensaje = (bkNinguno, bkAceptar, bkCancelar, bkBuscar, bkCrear, bkSi, bkNo, bkReintentar, bkAbortar, bkIgnorar, bkCerrar, bkAyuda, bkImprimir);
TMensajeTipo = (mtInformacion, mtConfirmacion, mtCuidado, mtError);
Constants |
Variables |