Poner forma semi-trasparente!
 

Hola he estado buscando y hay muchas formas de poner los formularios semi-transparentes pero cuando lo hago las cosas que pongo dentro tambien se ponen del mismo tono y quisiera que se mantuvieran igual, o sea que unicamente sea el form el que este transparente, agradezco mucho su atención, muchas gracias

Hola Meli... el el Form tiene la propiedad TransparentColor, juega un poco con esta propiedad ;)

Puedes poner el form de un color diferente al color de los componentes, setear esta propiedad al color del form y probar a ver que pasa...

Saludos

Hola Faust, gracias por responder, mira te comento lo que me pasa, ya hice lo que me dijiste y nada, pongo el transparentcolor en True, luego le asigno el color que le puse a la forma y nada, ademas aunque ponga el groupbox de otro color lo sigue cogiendo del color de la forma.
Mi idea es la siguiente a ver si me puedes ayudar: quiero darle un poco mas de vista a mi forma de entrada a un sistema y quisiera ponerle los bordes semi-transparentes, y lo de adentro que se vea bien, encontre un forma para que la forma fuera semi-transparente pero todo lo que esta dentro se vuelve semi-transparente tambien. Gracias por la ayuda.

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

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.

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

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

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