Poner forma semi-trasparente!

[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.