Ver Mensaje Individual
  #7  
Antiguo 06-12-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Melissa_12.
Cita:
Empezado por Melissa_12 Ver Mensaje
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.
Archivos Adjuntos
Tipo de Archivo: zip Melissa_12.zip (4,8 KB, 20 visitas)
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita