Page 1 of 1
Dialogo o Ventana sin titulo y botones minimizar
Posted: Wed Feb 27, 2013 7:20 pm
by 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
Re: Dialogo o Ventana sin titulo y botones minimizar
Posted: Wed Feb 27, 2013 7:33 pm
by 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.
Re: Dialogo o Ventana sin titulo y botones minimizar
Posted: Wed Feb 27, 2013 7:35 pm
by Bayron
Creo que lo que buscas lo puedes conseguir añadiendo al Define de la ventana esto:
para que quede algo asi:
Code: Select all
DEFINE WINDOW oWnd FROM 0, 0 TO 600, 600
PIXEL;
TITLE 'Titulo de la ventana';
NOSYSMENU;
STYLE nOr( WS_POPUP )
Re: Dialogo o Ventana sin titulo y botones minimizar
Posted: Thu Feb 28, 2013 4:14 pm
by 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
Re: Dialogo o Ventana sin titulo y botones minimizar
Posted: Tue Mar 05, 2013 9:50 pm
by cnavarro
Buenas noches
El código siguiente no funciona
Code: Select all
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
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
Re: Dialogo o Ventana sin titulo y botones minimizar
Posted: Wed Mar 06, 2013 6:54 am
by colthop
Hola Carlos:
Yo lo hago de la siguiente manera:
Code: Select all
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