Page 1 of 1
SET INTERACTIVECLOSE ON/OFF
Posted: Tue Jul 24, 2018 4:08 pm
by jorge.posadas
Grupo
En mis PRG estoy poniendo SET INTERACTIVECLOSE ON para evitar use la "X", y me funciona correctamente ya que cuando la usan manda un mensaje que dice "OPERACION NO PERMITIDA", ahora bien, ¿es posible cambiar ese mensaje por otro personalizado? si la respues es SI, ¿cómo lo puedo hacer?
De antemano agradezco la ayuda
Re: SET INTERACTIVECLOSE ON/OFF
Posted: Tue Jul 24, 2018 7:32 pm
by andyglezl
SET INTERACTIVECLOSE ON | OFF | QUERY [MAIN]
When sets to OFF the windows can't be closed with ALT+F4 or Clicking [X]. When set to QUERY, the user is asked for confirmation. Using MAIN clause, user will be asked on close only for main program window.
Re: SET INTERACTIVECLOSE ON/OFF
Posted: Tue Jul 24, 2018 7:35 pm
by jorge.posadas
Andrés
Agradezco tú respuesta y aprovechando, ¿tienes un ejemplo para el uso de MAIN y QUERY?
Re: SET INTERACTIVECLOSE ON/OFF
Posted: Tue Jul 24, 2018 8:21 pm
by andyglezl
Así es tal cual
SET INTERACTIVECLOSE QUERY MAIN
Solo te preguntara en la ventana Main
Re: SET INTERACTIVECLOSE ON/OFF
Posted: Tue Jul 24, 2018 9:36 pm
by jorge.posadas
Andrés,
Gracias por la respuesta y si efectivamente después del mensaje me da in botón, sin embargo aun persiste el mismo mensaje, lo que necesito es saber el COMO puedo modificar ese mensaje y poner uno que yo desee.
Re: SET INTERACTIVECLOSE ON/OFF
Posted: Wed Jul 25, 2018 12:50 am
by andyglezl
sin embargo aun persiste el mismo mensaje
A cual mensaje te refieres ?
A mi me aparece este mensaje. no es personalizado pero es adecuado.
(para mi)
- interactive.png (4.42 KiB) Viewed 3627 times
De otra forma tendrías que hacerlo en la definición del MAIN...
DEFINE WINDOW <WindowName> MAIN
...
...
[ ON INTERACTIVECLOSE <InteractiveCloseProcedureName> | <bBlock> ]
Ya con una función tuya.
Re: SET INTERACTIVECLOSE ON/OFF
Posted: Wed Jul 25, 2018 6:53 am
by SALINETAS24
Hola Jorge...,
Creo que es esto lo que buscas
Code: Select all
DEFINE WINDOW main ;
AT 000,000 ;
WIDTH 320 HEIGHT 410 ;
ICON "Logo" ;
TITLE 'TITULO VENTANA' ;
NOMINIMIZE NOMAXIMIZE TOPMOST ;
MAIN ;
ON INTERACTIVECLOSE ( MsgStop('PON TU MENSAJE', 'PON TU CABECERA!!!') , .F. )
Re: SET INTERACTIVECLOSE ON/OFF
Posted: Wed Jul 25, 2018 10:22 pm
by jorge.posadas
Salinetas24,
Agradezco mucho ese dato, es precisamente lo que deseaba. Empezaré a integrarlo.
Gracias de nuevo
Re: SET INTERACTIVECLOSE ON/OFF
Posted: Thu Jul 26, 2018 4:45 pm
by jorge.posadas
Salinetas24,
una pregunta, ya estoy usando lo que me indicaste y lo cual agradezco sin embargo, ignoro el uso del último parámetro .F. ¿para que se usa?
ON INTERACTIVECLOSE ( MsgStop('PON TU MENSAJE', 'PON TU CABECERA!!!') , .F. )
Re: SET INTERACTIVECLOSE ON/OFF
Posted: Thu Jul 26, 2018 8:11 pm
by SALINETAS24
Hola Jorge, si le pones .T., presenta el mensaje y sale de programa.. creo recordar.
Si no le pones nada..., no se lo que hace. Prueba y me lo dices
Salud y Cervezas..