Ver Mensaje Individual
  #2  
Antiguo 13-01-2006
elcigarra elcigarra is offline
Miembro
 
Registrado: may 2005
Posts: 269
Reputación: 20
elcigarra Va por buen camino
a) Para cambiar la barra, creo que lo mas sencillo es lo que tu dices, desaparecer la otra (sacando bordericons y border) y usar una falsa (con un .bmp, por ejemplo.

b) Lo maximizado o no del form está en la propiedad Windowstate del mismo. Cambiando este valor pasas a maximizado, minimizado o normal.

c) Lo que no te has preguntado (y es lo que te dará más dolores de cabeza) es como mueves la ventana con el mouse desde tu falsa barra de título. Esto lo haces así:
Código Delphi [-]
//...  en la sección private agregas la siguiente linea
private
  { Private declarations }
  procedure HitTest(Var Mes : TMessage);message Wm_NcHitTest;
Luego defines el procedimiento
Código Delphi [-]
procedure TForm1.HitTest(Var Mes : TMessage);
var
  sep_izq:Integer; //separación entre tu barra y el borde izquierdo del form
  sep_der:Integer; //lo mismo al borde derecho del form
  sep_sup:Integer; //lo mismo borde superior del form
  alto:Integer; // alto en pixels de la barra (Height del TImage)
begin
 inherited;
  //... aquí le pones tus valores a las variables
  if (Form1.ScreenToClient(Mouse.CursorPos).x > sep_izq) and
     (Form1.ScreenToClient(Mouse.CursorPos).x < Width - sep_der) and
     (Form1.ScreenToClient(Mouse.CursorPos).y > sep_sup) and
     (Form1.ScreenToClient(Mouse.CursorPos).y < alto) then
  if Mes.Result=HtClient then
     Mes.Result:=HtCaption;
end;
Responder Con Cita