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.