Resultados 1 al 4 de 4

Tema: Desactivar la [X] de cerrar ventana

  1. #1
      Acabo de llegar...
    C

    Registrado
    septiembre de 2015
    Mensajes
    19
    Ciudad
    Bucaramanga

    Agradecimientos
     
    Recibidos
    2
    Enviados
    19

    Citaciones y menciones
     
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    0

    Form Desactivar la [X] de cerrar ventana

    Por favor me pueden ayudar. Necesito desactivar la X, de la ventana pero que deje habilitados los otros dos botones de minimizar y cambiar el tamaño.
    He intentado en las propiedades de la forma en Style desactivar el controlbox, sí lo hace pero desactiva los tres botones. Gracias.

    0 Not allowed!
    Mejores respuestas Soluciones: 1
    Post Nº1153

  2. #2
      Administrador
    Avatar de Kuk

    Registrado
    enero de 2015
    Edad
    37
    Mensajes
    2,011
    Ciudad
    Madrid

    Agradecimientos
     
    Recibidos
    862
    Enviados
    720

    Citaciones y menciones
     
    Mentioned
    3 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    5 Post(s)
    Poder de Reputación
    10

    Predeterminado
    1 members found this post helpful.

    @Ciro, para qué necesitas deshabilitarlo? Si puedes controlarlo en el evento "OnClose", hay un campo en LINKAGE al cual si le mueves POW-FALSE no cierra el Form!

    De todos modos se puede hacer por WinAPI, tengo un ejemplo en casa, intentaré pasártelo esta tarde.

    Añadido despues de 2 horas 10 minutos
    @Ciro, pon este código en el evento "Opened" del Form donde quieres deshabilitar el botón de cerrar:

    COBOL Código:
    1. ENVIRONMENT     DIVISION.
    2.  DATA            DIVISION.
    3.  WORKING-STORAGE SECTION.
    4.  01  WS-HWND         PIC S9(9) COMP-5.
    5.  01  WS-HWND-M       PIC S9(9) COMP-5.           
    6.  01  WS-HWND-P       PIC S9(9) COMP-5.
    7.  
    8.  PROCEDURE       DIVISION.
    9.      MOVE "hwnd" OF POW-SELF TO WS-HWND
    10.      
    11.      CALL "GetParent" WITH STDCALL USING BY VALUE WS-HWND
    12.          RETURNING WS-HWND-P
    13.      CANCEL "GetParent"
    14.      
    15.      CALL "GetSystemMenu" WITH STDCALL USING BY VALUE WS-HWND-P POW-FALSE
    16.          RETURNING WS-HWND-M
    17.      CANCEL "GetSystemMenu"
    18.      
    19.      CALL "DeleteMenu" WITH STDCALL USING BY VALUE WS-HWND-M
    20.                                           BY VALUE h"F060"
    21.                                           BY VALUE 0
    22.      CANCEL "DeleteMenu"     
    23.          

    0 Not allowed!
    Última edición por Kuk; 28.10.2015 a las 12:35 Razón: Post añadido

    ¿Te han ayudado? NO TE OLVIDES de darle al botón
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención, tienes 2 opciones:
    1. Haciendo clic en el icono al lado de su nick
    2. Haciendo clic en el editor al botón y escribiendo su nick.

  3. #3
      Acabo de llegar...
    C

    Registrado
    septiembre de 2015
    Mensajes
    19
    Ciudad
    Bucaramanga

    Agradecimientos
     
    Recibidos
    2
    Enviados
    19

    Citaciones y menciones
     
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    0

    Predeterminado

    Hola Kuk, en la forma no me sale el evento "OnClose". Sale el Evento "Close" y no tiene LINKAGE.

    También coloque el código que me envia en el "Opened", pero sale unos errores, no se si es por lo que es WINAPI hay que hacer algun otro proceso?, ya que nunca he usado WINAPI.
    Los errores son:
    Código:
    NI0201.obj : error LNK2001: unresolved external symbol _DELETEMENU@12
    NI0201.obj : error LNK2001: unresolved external symbol _GETSYSTEMMENU@8
    NI0201.obj : error LNK2001: unresolved external symbol _GETPARENT@4
    D:\CONTABILIDAD\SYDWIN\Debug\CONTABILIDAD.exe : fatal error LNK1120: 3 unresolved externals
    Muchas gracias

    0 Not allowed!

  4. #4
      Administrador
    Avatar de Kuk

    Registrado
    enero de 2015
    Edad
    37
    Mensajes
    2,011
    Ciudad
    Madrid

    Agradecimientos
     
    Recibidos
    862
    Enviados
    720

    Citaciones y menciones
     
    Mentioned
    3 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    5 Post(s)
    Poder de Reputación
    10

    Predeterminado

    @Ciro, llevas razón, es "Close", pero debería llevar LINKAGE y un campo numérico en ella, donde puedes mover POW-TRUE, creo que se llama POW-ARG-CANCEL o algo así.

    Qué versión de PowerCOBOL usas?

    Para que te funcione el WinAPI, debes hacer click con el botón derecho en el TreeView del proyecto sobre el item llamado "Script", donde se reúnen los códigos COBOL que has codificado. En el menú que aparece elige "Options" (si no me equivoco), donde puedes definir opciones de compilación. En la pestaña COMPILE, en el campo que aparece pones lo siguiente:

    Código:
    ALPHAL(WORD)
    Luego haces ReBuild de todo el proyecto. Si no compila dando errores de LINK diciendo que no encuentra las funciones del WinAPI como ahora, añade al proyecto USER32.LIB.

    0 Not allowed!

    ¿Te han ayudado? NO TE OLVIDES de darle al botón
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención, tienes 2 opciones:
    1. Haciendo clic en el icono al lado de su nick
    2. Haciendo clic en el editor al botón y escribiendo su nick.

Información de Tema

Usuarios Viendo este Tema

Actualmente hay 1 usuarios viendo este tema. (0 miembros y 1 visitantes)

Temas Similares

  1. [Sintaxis] Cerrar form de Usuario y Contraseña
    Por dmosca en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 1
    Último Mensaje: 30.07.2017, 23:20
  2. [Información] Minimizar ventana padre desde la ventana hijo
    Por Roger en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 7
    Último Mensaje: 07.07.2017, 22:06
  3. [Aporte] Abre ventana con boton derecho mouse
    Por Adrianeloy en el foro Cocina PowerCOBOL V3L10
    Respuestas: 0
    Último Mensaje: 31.05.2017, 16:59
  4. [Sintaxis] Activar/Desactivar PASSWORD
    Por Roger en el foro PowerFORM
    Respuestas: 1
    Último Mensaje: 30.03.2017, 18:59
  5. [Información] Problemas al cerrar el PREVIEW -SOLUCIONADO-
    Por Josber en el foro PowerFORM
    Respuestas: 6
    Último Mensaje: 03.08.2015, 09:32

User Tag List

Etiquetas para este Tema

Permisos de Publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •