SET INTERACTIVECLOSE ON/OFF

[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

[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.

[jorge.posadas]

Andrés

Agradezco tú respuesta y aprovechando, ¿tienes un ejemplo para el uso de MAIN y QUERY?

[andyglezl]

Así es tal cual

SET INTERACTIVECLOSE QUERY MAIN

Solo te preguntara en la ventana Main

[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.

[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 3531 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.

[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. )                                       

[jorge.posadas]

Salinetas24,

Agradezco mucho ese dato, es precisamente lo que deseaba. Empezaré a integrarlo.
Gracias de nuevo

[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. )

[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..