Hola Melissa_12.
Cita:
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.