Poner forma semi-trasparente!

[Faust]

Oh si ya tengo una idea más clara de lo que necesitas... he tratado de hacerlo sin éxito, pero esto te puede ayudar...

http://clubdelphi.com/foros/showthread.php?t=80887

http://clubdelphi.com/foros/showthread.php?t=80841

Échale un ojito a ver si te puede ayudar esto

Este Otro http://www.clubdelphi.com/foros/showthread.php?t=50609

[Melissa_12]

Aprecio mucho tu ayuda Faust pero no me sirvieron los enlaces, la verdad es que ya no se que hacer, he estado pensando si pudiera poner un formulario semi-transparente y despues cargar la forma que quiero mostrar por delante y dejar la semi-transparente detrás, que crees?, podría ser?. Gracias.

[Faust]

Bueno, pues esperemos a ver si alguien más tiene la solución

[ecfisa]

Hola Melissa_12.

Empezado por Melissa_12

he estado pensando si pudiera poner un formulario semi-transparente y despues cargar la forma que quiero mostrar por delante y dejar la semi-transparente detrás, que crees?, podría ser?.

Si, algo así se puede hacer.

Código Delphi [-]
...
implementation

uses Unit2;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AlphaBlend:= True;
  AlphablendValue:= 200; 
  Form2:= TForm2.Create(Self);
  Form2.BorderStyle:= bsNone;
  Form2.Left:= Left+ GetSystemMetrics(SM_CXSIZEFRAME);
  Form2.Top:=  Top + GetSystemMetrics(SM_CYCAPTION)+GetSystemMetrics(SM_CXSIZEFRAME);
  Form2.Width := ClientWidth;
  Form2.Height:= ClientHeight;
  Form2.Show;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  Form2.Left:= Left+ GetSystemMetrics(SM_CXSIZEFRAME);
  Form2.Top:=  Top + GetSystemMetrics(SM_CYCAPTION)+GetSystemMetrics(SM_CXSIZEFRAME);
  Form2.Width := ClientWidth;
  Form2.Height:= ClientHeight;
  Form2.BringToFront;
end;
...

Con este efecto:



Te adjunto el código que seguramente mejorarás.

Saludos.

[Melissa_12]

Muchas Gracias ecfisa me ha sido de gran utilidad tu ejemplo, funciona tal y como queria. Gracias.