Ver Mensaje Individual
  #4  
Antiguo 01-12-2007
kapullok_2006 kapullok_2006 is offline
Miembro
 
Registrado: mar 2007
Posts: 90
Reputación: 18
kapullok_2006 Va por buen camino
Question deseo que aparezca la barra sin botones ni ventanas

Hola,
Yo he aplicado esta funcion que ví en una página:

Código Delphi [-]
function OcultarBarraHerramientas(MostradaBarra:Boolean):Boolean;
var
BarraHerramientas:HWnD;
begin
BarraHerramientas:=FindWindow('Shell_TrayWnd',NIL);
if BarraHerramientas<>Null then
if MostradaBarra then
ShowWindow(BarraHerramientas,SW_SHOW)//MostradaBarra
else
ShowWindow(BarraHerramientas,SW_HIDE); //OcultaBarra
Result:=BarraHerramientas<>Null;
end;





Al aplicar en mi proyecto esta función,obtengo que:
Si oculto barra herramientas,me queda el hueco de la barra,y eso no queda muy guapo.
En mi Form,tengo puesto en sus propiedades lo siguente:
Align:alClient
BorderStyle:bsSizeable
WindowState:wsMaximized

Consigo que al arrancar el proyecto,mi Form no se pueda minimizar.Lo tengo
puesto maximizado y el align que he puesto creo que lo ajusta al tamaño del
Form.¿Cómo puedo hacer que el Form ocupe toda la pantalla incluyendo el
hueco que deja la barra al ocultarse?
Hay otra cosa que pienso,pero no sé si es posible.Es la siguiente:
Que al arrancar el Proyecto,desaparezcan de la barra las aplicaciones abiertas, y tampoco se muestren los iconos de aplicaciones que están ejecutándose o están para ejecutarse.Es decir,la barra de Windows xp,
con sólo su color azul,que no tenpa puesto nada más encima,y que su tamaño
no pueda modificarse.


Saludos.
Responder Con Cita