Gracias Pepe, pero no quiero q sea invisible completamente, solo semi-invisible, bajarle la opacidad solamente .....
Se que solo funciona en W2000, WXp y afines.
Salu2
Miguel
-----Mensaje original-----
De: pepe pepe [mailto:forodedelphi@...]
Enviado el: Miércoles, 05 de Enero de 2005 07:56 p.m.
Para: DesarrolloDelphi@...
Asunto: Re: [Delphi] Opacidad de un form
De: pepe pepe [mailto:forodedelphi@...]
Enviado el: Miércoles, 05 de Enero de 2005 07:56 p.m.
Para: DesarrolloDelphi@...
Asunto: Re: [Delphi] Opacidad de un form
Aca tenes un codigo que te lo hace invisible capaz que te sirve de algo.
procedure TForm1.Button1Click(Sender: TObject);
var
frmRegion, tempRegion: HRGN;
i: Integer;
Arect: TRect;
begin
frmRegion := 0;
for I:= 0 to ControlCount - 1 do begin
aRect := Controls[i].BoundsRect;
OffsetRect( aRect, clientorigin.x - left, clientorigin.y - top );
tempRegion := CreateRectRgnIndirect( aRect );
if frmRegion = 0 then
frmRegion := tempRegion
else begin
CombineRgn( frmRegion, frmRegion, tempRegion, RGN_OR );
DeleteObject( tempRegion );
end;
end;
tempregion :=
CreateRectRgn( 0, 0, Width,
GetSystemMetrics( SM_CYCAPTION )+
GetSystemMetrics( SM_CYSIZEFRAME )+
GetSystemMetrics( SM_CYMENU ) * Ord(Menu <> Nil));
var
frmRegion, tempRegion: HRGN;
i: Integer;
Arect: TRect;
begin
frmRegion := 0;
for I:= 0 to ControlCount - 1 do begin
aRect := Controls[i].BoundsRect;
OffsetRect( aRect, clientorigin.x - left, clientorigin.y - top );
tempRegion := CreateRectRgnIndirect( aRect );
if frmRegion = 0 then
frmRegion := tempRegion
else begin
CombineRgn( frmRegion, frmRegion, tempRegion, RGN_OR );
DeleteObject( tempRegion );
end;
end;
tempregion :=
CreateRectRgn( 0, 0, Width,
GetSystemMetrics( SM_CYCAPTION )+
GetSystemMetrics( SM_CYSIZEFRAME )+
GetSystemMetrics( SM_CYMENU ) * Ord(Menu <> Nil));
CombineRgn( frmRegion, frmRegion, tempRegion, RGN_OR );
DeleteObject( tempRegion );
SetWindowRgn( handle, frmRegion, true );
DeleteObject( tempRegion );
SetWindowRgn( handle, frmRegion, true );
end;
Miguel Linares <mlinares@...> wrote:
Miguel Linares <mlinares@...> wrote:
Hola compañeros foristas,
Alguien tendra por alli el codigo para Delphi 5 -o menor- para hacer
semi-invisible un form. (Algo asi como lo que tiene el winamp5 en su opcion
Windows Setting > Opacity)
Gracias
Miguel Linares M.
GMD S.A.
------------------------------
DesarrolloDelphi:
Desarrollo de Software en Borland Delphi
------------------------------
Direcciones de la lista:
Publicar un mensaje: DesarrolloDelphi@...
Suscribirse........: DesarrolloDelphi-Subscribe@...
Desuscribirse......: DesarrolloDelphi-Unsubscribe@...
Administrador......: DesarrolloDelphi-Owner@...
Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloDelphi
------------------------------
250MB gratis, Antivirus y Antispam
Correo Yahoo!, el mejor correo web del mundo
Abrí tu cuenta aquí
------------------------------
DesarrolloDelphi:
Desarrollo de Software en Borland Delphi
------------------------------
Direcciones de la lista:
Publicar un mensaje: DesarrolloDelphi@...
Suscribirse........: DesarrolloDelphi-Subscribe@...
Desuscribirse......: DesarrolloDelphi-Unsubscribe@...
Administrador......: DesarrolloDelphi-Owner@...
Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloDelphi
------------------------------
Enviar correo
