Deshabiliatar la X en un formulario

[jorge.posadas]

Grupo HMG

¿Como puedo deshabilitar la X para evitar que lo usen para cerrar un formuario? o si fuera posible mejor que enviara un mensaje al usuario avisandole que NO puede usar la X para cerrar e formulario
De antemano gracias por su ayuda

[serge_girard]

NOSYSMENU in define window

[mustafa]

Hola amigo : Jorge Posadas
otra opción ===> ON INTERACTIVECLOSE {||.F. } // <=== con .T. cierras Window y con .F. "No"

Code: Select all

#include <hmg.ch>

Function Main()

  SET CENTURY ON
  SET DATE FRENCH
  SET ESCAPE ON
  SET NAVIGATION EXTENDED
  SET CODEPAGE TO UNICODE
  SET LANGUAGE TO SPANISH
  SET DELETED ON
  SET BROWSESYNC ON

 DEFINE WINDOW Main                     ;
      AT 265 , 551                              ;
      WIDTH 620 HEIGHT 487              ;
      BACKCOLOR  {017,009,131}        ; 
      TITLE"Hola Mundo" + SPACE(65) + "Exit = [Esc]" ; 
      ICON ''                                       ;  
      MAIN NOSIZE NOMAXIMIZE NOMINIMIZE ;
      ON INTERACTIVECLOSE {||.F. }   // <=== con .T. cierras Window y con .F. "No"

      ON KEY ESCAPE ACTION  Main.Release   
   


END WINDOW

  Center Window Main
  Activate Window Main


Return Nil

Saludos, Regards,Salam
Mustafa

[jorge.posadas]

Gracias Serge_Girad y Mustafa, ya lo puse y ya quedó