Inhabilitar la [X] de un dialogo?

[noe aburto]

saludos

Verifique la clase Dialog y no encontre como inhabilitar en un dialogo el boton de cerrar [X], el boton de ayuda es: oDlg:lHelpIcon:=.F.
para la X, mi pregunta?

Gracias.

[cuatecatl82]

Saludos Paisano, y a todos los colegas del foro:

Despues de una larga ausencia por el trabajo me di un rato para revisar el foro, no me olvido de hechar un ojo a las novedades y leer los post de los compañeros a quienes les debo bastante pero no he podido colaborar en nada en estos meses, así que ojala sea de ayuda este granito de arena.

Noe,la forma mas facil de quitar la "X" de los dialogos si es desde un archivo de recursos sería así desde Pelles C:



O via código jugando con los valores de los estilos de los dialogos:

Code: Select all  Expand view

#Include "FiveWin.ch"

Static oDlg

//----------------------------------------------------------------//

Function Main()

   DEFINE DIALOG oDlg TITLE "Probando Estilos" STYLE nOr( WS_THICKFRAME, WS_SYSMENU )
    oDlg:lhelpIcon:= .F. 
  ACTIVATE DIALOG oDlg CENTERED

return nil

La otra opción es que el Boton quede sin accion, sería de esta forma:

Code: Select all  Expand view

#Include "FiveWin.ch"

Static oDlg

//----------------------------------------------------------------//

Function Main()

Local lSalir:= .F.
Local oBtn

   DEFINE DIALOG oDlg TITLE "Probando Estilos" STYLE nOr( WS_THICKFRAME, WS_SYSMENU )
  DEFINE BUTTON oBtn Action(lSalir:= .T., oDlg:End())
    oDlg:lhelpIcon:= .F.
  ACTIVATE DIALOG oDlg CENTERED Valid (lSalir)

return nil

Los valores de los estilos de los Dialogos los puedes encontrar en el Archivo Winapi.Ch de Fivewin..

Saludos y es un gusto estar escribiendo de nuevo el el foro..