Barra de título transparente en los formularios

[roman]

Y, digo yo, ¿no sería mejor dejar el estilo de la ventana acorde al sistema operativo?

// Saludos

[rgstuamigo]

Empezado por ecfisa

Hola mi amigo, como siempre, un gran gusto verte por aquí

He estado buscando y parece que es más fácil hacer transparente una chapa de zinc que una barra de título en XP...

Pero, encontré este artículo (en realidad un tutorial) que quizá ya hayas leido: Creating Forms with Custom Title Bars, pero si no, tal vez te pueda dar una idea de como lograrlo.

Lo siento pero no encontré nada más específico sobre lo que buscas...


Un saludo.

Igualmente un gran gusto verte Daniel...
Muchas gracias por el enlace le voy a hechar una buena leida y ver que se puede hacer.

Empezado por roman

Y, digo yo, ¿no sería mejor dejar el estilo de la ventana acorde al sistema operativo?

// Saludos

Un saludo Roman... gracias por las respuestas....
Pues en principio eso es lo que pensé pero aveces se le meten ciertas cosas cosas a uno y pues quiere a veces darle un toque diferente a sus aplicaciones, vamos a ver que tan complicado es la cosa, y si se pone dura pues vamos a tener que dejarlo así no más, pero como bien dice el dicho:"Uno no pierde nada con intentarlo".
De todas formas si alguien puede sugerirme o guiarme le seré muy agradecido.
Saludos...

[[rcarrillom]]

Empezado por rgstuamigo

"Uno no pierde nada con intentarlo"

Tiempo amigo mío (en caso de que no funcione el intento), que es lo más valioso

[[escafandra]]

Quizás este artículo te interese.

Saludos.

[rgstuamigo]

Empezado por rcarrillom

Tiempo amigo mío (en caso de que no funcione el intento), que es lo más valioso

Teneis razon por esa parte pero, si nunca lo intentas pues nunca aprendes nada nuevo.

Empezado por escafandra

Quizás este artículo te interese.

Pues claro que me interesa mi buen amigo escafandra .
Ya me extrañaba no tener una respuestas tuya , sé muy bien que dominas con gran maestría la programacion con las API, por eso siempre que posteas algo en cualquier foro, estoy muy atento atus respuestas, pues siempre estoy aprendiendo algo nuevo tuyo.Vamos a hecharle una muy buena leida a ese link y ver si puedo hechar andar esto; aunque para eso creo que voy estar haciendo algunas preguntas si me topo con algo que no entienda.
Saludos... y gracias....

[[escafandra]]

El artículo que propuse muestra formularios muy vistosos pero de bajo rendimiento gráfico. Usa ventanas estilo WS_EX_LAYERED para conseguir semitransparencias y la API SetLayeredWindowAttributes (lo mismo que delphi usando AlphaBlend). También realiza un ejemplo con la API UpdateLayeredWindow, engorrosa de usar porque nos tenemos que hacer cargo de pintar todos los controles, pues los mensajes WM_PAINT dejan de gestionarse.

He preparado una "chapucilla" como ejemplo en delphi, sencillo y con mejor rendimiento gráfico (creo ) que sólo pretende colocar la barra del Caption y el brode de la ventana semitransparentes.

El truco es poner el Form como semitransparente con la propiedad AlphaBlend y su valor. Luego Creamos un segundo Form en tiempo de ejecución sin borde, sin Caption y opaco, que colocamos enzima, ocupando todo el área cliente. Posteriormente cambiamos el Parent de todos los controles a este nuevo Form. Para que esto funcione debemos reescribir parte de la función de tratamiento de mensajes del Form original.

El efecto resultante es lo que deseaba realizar rgstuamigo. Conseguimos hacer transparente la barra del título y la chapa de zinc.


El código que realiza el efecto es el siguiente:

Código Delphi [-]
procedure TForm1.WndProc(var Message: TMessage);
begin
  case Message.Msg of
  WM_SYSCOMMAND:
    case Message.WParam of
    SC_MAXIMIZE, SC_MINIMIZE, SC_RESTORE:
      SetWindowPos(FForm.Handle, 0, Left + GetSystemMetrics(SM_CXFRAME), 
                          Top + GetSystemMetrics(SM_CYCAPTION) + GetSystemMetrics(SM_CYFRAME), 
                          Width - 2*GetSystemMetrics(SM_CXFRAME),
                          Height - GetSystemMetrics(SM_CYCAPTION) - 2*GetSystemMetrics(SM_CYFRAME), 0);
    end;
  WM_CLOSE:
    FForm.Close;
  WM_MOVING:
    SetWindowPos(FForm.Handle, 0, PRECT(Message.lParam).left + GetSystemMetrics(SM_CXFRAME),
                        PRECT(Message.lParam).top + GetSystemMetrics(SM_CYCAPTION) + GetSystemMetrics(SM_CYFRAME), 
                        0, 0, SWP_NOSIZE);
  WM_SIZING:
    SetWindowPos(FForm.Handle, 0, PRECT(Message.lParam).left + GetSystemMetrics(SM_CXFRAME), 
                        PRECT(Message.lParam).top + GetSystemMetrics(SM_CYCAPTION) + GetSystemMetrics(SM_CYFRAME), 
                        PRECT(Message.lParam).Right - PRECT(Message.lParam).Left - 2*GetSystemMetrics(SM_CXFRAME), 
                        PRECT(Message.lParam).Bottom - PRECT(Message.lParam).Top - GetSystemMetrics(SM_CYCAPTION) -
                        2*GetSystemMetrics(SM_CYFRAME), 0);
  WM_SIZE:
    if FForm <> nil then
       SetWindowPos(FForm.Handle, 0, Left + GetSystemMetrics(SM_CXFRAME), 
                            Top + GetSystemMetrics(SM_CYCAPTION) + GetSystemMetrics(SM_CYFRAME), 
                            Width - 2*GetSystemMetrics(SM_CXFRAME), 
                            Height - GetSystemMetrics(SM_CYCAPTION) - 2*GetSystemMetrics(SM_CYFRAME), 0);
  WM_SETFOCUS:
    PostMessage(FForm.Handle, WM_SETFOCUS, 0, 0);
  end;
  inherited WndProc(Message);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FForm:= TForm.Create(self);
  FForm.Left:= Left + GetSystemMetrics(SM_CXFRAME);
  FForm.Top:= Top + GetSystemMetrics(SM_CYCAPTION) + GetSystemMetrics(SM_CYFRAME);
  FForm.Width:= Width - 2 * GetSystemMetrics(SM_CXFRAME);
  FForm.Height:= Height - GetSystemMetrics(SM_CYCAPTION) - 2*GetSystemMetrics(SM_CYFRAME);
  FForm.BorderStyle:= bsNone;
  FForm.Show;

  while ControlCount > 0 do
    Controls[0].Parent:= FForm;

end;

Aquí tenéis el ejemplo completo.


Saludos.

[roman]

Empezado por escafandra

He preparado una "chapucilla" como ejemplo en delphi, sencillo y con mejor rendimiento gráfico (creo ) que sólo pretende colocar la barra del Caption y el brode de la ventana semitransparentes.

El truco es poner el Form como semitransparente con la propiedad AlphaBlend y su valor. Luego Creamos un segundo Form en tiempo de ejecución sin borde, sin Caption y opaco, que colocamos enzima, ocupando todo el área cliente.

¡Joder! (Lo digo amistosamente) Ésta sí que es buena Yo lo único que había intentado, pero no funciona, era insertar el segundo formulario dentro del principal; pero tú literalmente lo has puesto encima, o sea, que le has puesto una cortinita

Muy ingenioso.

// Saludos

[rgstuamigo]

Empezado por escafandra

...
He preparado una "chapucilla" como ejemplo en delphi, sencillo y con mejor rendimiento gráfico (creo ) que sólo pretende colocar la barra del Caption y el brode de la ventana semitransparentes.

El truco es poner el Form como semitransparente con la propiedad AlphaBlend y su valor. Luego Creamos un segundo Form en tiempo de ejecución sin borde, sin Caption y opaco, que colocamos enzima, ocupando todo el área cliente. Posteriormente cambiamos el Parent de todos los controles a este nuevo Form. Para que esto funcione debemos reescribir parte de la función de tratamiento de mensajes del Form original.

El efecto resultante es lo que deseaba realizar rgstuamigo. Conseguimos hacer transparente la barra del título y la chapa de zinc.
...

Excelente código amigo... de verdad..
Pues al ver tu código me puesto a trabajar de inmediato para transformar tu código y hacerlo un componente, aunque me ha costado bastante por que no tengo mucha experiencia en creacion de componentes como ustedes, pues he conseguido hacer una version estable:
Aquí está el código de dicho componente:

Código Delphi [-]
unit AlphaTitleBar;

interface

uses
  SysUtils, Classes, Forms, Messages, Windows;

type
  TAlphaTitleBar = class(TComponent)
  private
    { Private declarations }
    FForm: TForm;
    FHooksCreated: Boolean;
    FActive: Boolean;
    FTransparencyValue: Byte;
    OldWndProc: TFarProc;
    NewWndProc: Pointer;
    procedure HookOwner;
    procedure UnhookOwner;
    procedure CreateFForm;
    procedure DestroyFForm;
    Procedure SetActive(value: Boolean);
    Procedure SetTransparencyValue(value: Byte);
    Procedure UpdateWndProcAndOnCreate;
  protected
    { Protected declarations }
    procedure CallDefault(var Msg: TMessage);
    procedure HookWndProc(var Message: TMessage); virtual;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    { Published declarations }
    Property Active: Boolean read FActive write SetActive default False;
    Property TransparencyValue: Byte read FTransparencyValue
      write SetTransparencyValue default 170;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('GenioEscafandra', [TAlphaTitleBar]);  //<--En homenaje a Escafandra 
end;

{ TAlphaTitleBar }

procedure TAlphaTitleBar.CallDefault(var Msg: TMessage);
begin
  Msg.Result := CallWindowProc(OldWndProc, TForm(Owner).Handle, Msg.Msg,
    Msg.wParam, Msg.lParam);
end;

constructor TAlphaTitleBar.Create(AOwner: TComponent);
Var
  I: Integer;
begin
  if not(AOwner is TForm) then
    raise EInvalidCast.Create
      ('El componente TAlphaTitleBar solo puede ser colocado en un TForm o en sus descendientes.');
  with AOwner do
    for I := 0 to ComponentCount - 1 do
      if (Components[i] is TAlphaTitleBar) and (Components[i] <> Self) then
        raise EComponentError.Create
          ('Solo se permite un solo componente TAlphaTitleBar en un formulario.');
  inherited Create(AOwner);
  FActive := False;
  FTransparencyValue := 170;
  // HookOwner;
end;

procedure TAlphaTitleBar.CreateFForm;
begin
  with (Owner as TForm) do
  begin
    FForm := TForm.Create(nil); // (Self.Owner); // ojo lo cambie
    FForm.BorderStyle := bsNone;
    FForm.Show;
    FForm.Left := Left + GetSystemMetrics(SM_CXFRAME);
    FForm.Top := Top + GetSystemMetrics(SM_CYCAPTION) +
      GetSystemMetrics(SM_CYFRAME);
    FForm.Width := Width - 2 * GetSystemMetrics(SM_CXFRAME);
    FForm.Height := Height - GetSystemMetrics(SM_CYCAPTION) - 2 *
      GetSystemMetrics(SM_CYFRAME);
    while ControlCount > 0 do
      Controls[0].Parent := FForm;
    SendMessage(Handle, WM_NCACTIVATE, ShortInt(True), 0);
  end;
end;

destructor TAlphaTitleBar.Destroy;
begin
  UnhookOwner;
  DestroyFForm;
  inherited Destroy;
end;

procedure TAlphaTitleBar.DestroyFForm;
begin
  if Assigned(FForm) then
  begin
    while FForm.ControlCount > 0 do
      FForm.Controls[0].Parent := (Owner as TForm);
    FreeAndNil(FForm);
  end;
end;

procedure TAlphaTitleBar.HookOwner;
begin
  if not Assigned(Owner) then
    Exit;
  OldWndProc := TFarProc(GetWindowLong(TForm(Owner).Handle, GWL_WndProc));
  NewWndProc := MakeObjectInstance(HookWndProc);
  SetWindowLong(TForm(Owner).Handle, GWL_WndProc, LongInt(NewWndProc))
end;

procedure TAlphaTitleBar.HookWndProc(var Message: TMessage);
begin
  with (Owner as TForm) do
  Begin
    case Message.Msg of
      WM_SYSCOMMAND:
        case Message.wParam of
          SC_MAXIMIZE, SC_MINIMIZE, SC_RESTORE:
            SetWindowPos(FForm.Handle, 0, Left + GetSystemMetrics(SM_CXFRAME),
              Top + GetSystemMetrics(SM_CYCAPTION) +
              GetSystemMetrics(SM_CYFRAME),
              Width - 2 * GetSystemMetrics(SM_CXFRAME),
              Height - GetSystemMetrics(SM_CYCAPTION) - 2 *
              GetSystemMetrics(SM_CYFRAME), 0);
        end;
      WM_CLOSE:
        FForm.Close;
      WM_MOVING:
        SetWindowPos(FForm.Handle, 0, PRECT(Message.lParam).Left +
          GetSystemMetrics(SM_CXFRAME), PRECT(Message.lParam).Top +
          GetSystemMetrics(SM_CYCAPTION) + GetSystemMetrics(SM_CYFRAME), 0, 0,
          SWP_NOSIZE);
      WM_SIZING:
        SetWindowPos(FForm.Handle, 0, PRECT(Message.lParam).Left +
          GetSystemMetrics(SM_CXFRAME), PRECT(Message.lParam).Top +
          GetSystemMetrics(SM_CYCAPTION) + GetSystemMetrics(SM_CYFRAME),
          PRECT(Message.lParam).Right - PRECT(Message.lParam).Left - 2 *
          GetSystemMetrics(SM_CXFRAME), PRECT(Message.lParam).Bottom -
          PRECT(Message.lParam).Top - GetSystemMetrics(SM_CYCAPTION) - 2 *
          GetSystemMetrics(SM_CYFRAME), 0);
      WM_SIZE:
        if FForm <> nil then
          SetWindowPos(FForm.Handle, 0, Left + GetSystemMetrics(SM_CXFRAME),
            Top + GetSystemMetrics(SM_CYCAPTION) + GetSystemMetrics(SM_CYFRAME),
            Width - 2 * GetSystemMetrics(SM_CXFRAME),
            Height - GetSystemMetrics(SM_CYCAPTION) - 2 *
            GetSystemMetrics(SM_CYFRAME), 0);
      WM_SETFOCUS:
        PostMessage(FForm.Handle, WM_SETFOCUS, 0, 0);
    end;
    CallDefault(Message);
  End;
end;

procedure TAlphaTitleBar.SetActive(value: Boolean);
begin
  if value <> FActive then
  begin
    FActive := value;
    TForm(Owner).AlphaBlend := value;
    UpdateWndProcAndOnCreate;
  end;
end;

procedure TAlphaTitleBar.SetTransparencyValue(value: Byte);
begin
  if value <> FTransparencyValue then
  begin
    FTransparencyValue := value;
    TForm(Owner).AlphaBlendValue := value;
    TForm(Owner).Invalidate;
  end;

end;

procedure TAlphaTitleBar.UnhookOwner;
begin
  if Assigned(Owner) and Assigned(OldWndProc) then
    SetWindowLong(TForm(Owner).Handle, GWL_WndProc, LongInt(OldWndProc));
  if Assigned(NewWndProc) then
    FreeObjectInstance(NewWndProc);
  NewWndProc := nil;
  OldWndProc := nil
end;

procedure TAlphaTitleBar.UpdateWndProcAndOnCreate;
begin
  if FActive then
  begin
    if not FHooksCreated then
    begin
      FHooksCreated := True;
      if not(csDesigning in ComponentState) then
        CreateFForm;
      HookOwner;
    end;
  end
  else
  begin
    FHooksCreated := False;
    UnhookOwner;
    DestroyFForm;
  end;
  TForm(Owner).Invalidate;
end;

end.

Desde luego se lo puede mejorar, por ejemplo:

* Ampliarlo para que todos los formularios, dialogos,etc, de la aplicacion tambien tengan los bordes y titulos transparante, con tan solo tener un solo componente en el formulario principal.
* Mejorarlo para que soporte imagenes en la transparencia.
* Etc..

Como puedes ver amigo escafandra, tu código me ha inspirado...
Estaré atento a las criticas y/o sugerencias sobre éste componente.
Y espero que le sirva a más de uno.
Saludos...
EDITO:
Adjunto el archivo del componente.

[[Chris]]

Empezado por roman

Y, digo yo, ¿no sería mejor dejar el estilo de la ventana acorde al sistema operativo?

Tienes razón Román, yo soy de los que piensa siempre en seguir el espíritud, look and feel, del sistema sobre el que está corriendo nuestra aplicación. Luce más integrada. Pero si he visto que Skype en Wxp hace lo que desea nuestro compañero.

Saludos,
Chris