Dialogo o Ventana sin titulo y botones minimizar

[carloslmm]

Hola Buenas Tardes

Tengo una duda, como crear un dialogo o una ventana la cual NO necesito que tenga el titulo, los botones de cerrar o de minimizar que si se puede incluso eliminar el entorno de el dialogo o la ventana

he buscado y no he encontrado nada al respecto, si puede alguien ayudarme le agradezco mucho

Gracias y Saludos a Todos.

Carlos I. De La Rosa
carloslmm10@gmail.com

FWH 12.05 harbour bcc 5.82

[jrestojeda]

Hola...
Yo genero los diálogos con el PellesC y lo puedo hacer sin ningún problema poniendo el parámetro caption en "NO"
Saludos, Esteban.

[Bayron]

Creo que lo que buscas lo puedes conseguir añadiendo al Define de la ventana esto:

Code: Select all  Expand view

NOSYSMENU STYLE nOr( WS_POPUP )

para que quede algo asi:

Code: Select all  Expand view

DEFINE WINDOW oWnd FROM 0, 0 TO 600, 600
        PIXEL;    
        TITLE 'Titulo de la ventana';
        NOSYSMENU;
        STYLE nOr( WS_POPUP )
 

[carloslmm]

Muchas Gracias Compañeros

Lo Voy a Probar


Gracias de nuevo y saludos a todos.

Carlos I. De La Rosa.
carloslmm10@gmail.com

FWH 12.5 harbour

[cnavarro]

Buenas noches

El código siguiente no funciona

Code: Select all  Expand view

 DEFINE WINDOW oAplica ;
                         FROM 0, 0 TO nAlto, nAncho ;
                         PIXEL;
                         BRUSH oBrushWnd ;
                         MDI ;//                         MENUINFO 8 ;
                         BORDER NONE ;
                         NOSYSMENU //;
                         
   oAplica:nStyle    := nOr( WS_POPUP )

al ejecutar me marca el siguiente error:

Code: Select all  Expand view

Stack Calls
===========
   Called from:  => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => NIL:ERROR( 0 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
   Called from: ../../../tobject.prg => NIL:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => NIL:OWNDCLIENT( 0 )
   Called from: .\source\classes\MDICHILD.PRG => TMDICHILD:NEW( 148 )
   Called from: C:\Proyecto\Apli\comp.prg => HAZWINDOW( 586 )
   Called from: C:\Proyecto\Apli\comp.prg => MAIN( 485 )

Por qué en MDICHILD y no en MDIFRAME?, y
No se puede hacer una ventana MDI sin caption y sin SYSMENU?
Gracias

[colthop]

Hola Carlos:

Yo lo hago de la siguiente manera:

Code: Select all  Expand view

DEFINE WINDOW oDlgwBro OF oVentPrinc MDICHILD PIXEL FROM zVer,zHor TO (zVer+zAnc),(zHor+zLar) COLORS escri01, fondo01  STYLE nOr(WS_DLGFRAME)
  SET FONT OF oDlgwBro TO oFont
ACTIVATE WINDOW oDlgwBro NORMAL VALID (if (GetKeyState (VK_ESCAPE), .F.,oDlgwBro:End()))

El VALID es para que no funcione el escape y se cierre.

Espero que te sirva

Carlos