formulario desvanecido mientras aparece???

[Negriz]

hola como estan???

mi pregunta es en el c++ builder como puedo hacer que un formulario al al activarse se vea desvanecido mientras aparece.

como uan especie de splash screen.

Es una animacion que pone alli??? si es asi como la pongo alli???.

[[cHackAll]]

__fastcall TForm2::TForm2(TComponent* Owner)
  : TForm(Owner)
{
 SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) | WS_EX_LAYERED);
 SetLayeredWindowAttributes(Handle, 0, 255, LWA_ALPHA);
}

void __fastcall TForm2::FormActivate(TObject *Sender)
{
 for (int blend = 200; blend < 256; blend+=5)
  {
   SetLayeredWindowAttributes(Handle, 0, blend, LWA_ALPHA);
   Sleep(10);
  }
}

void __fastcall TForm2::FormDeactivate(TObject *Sender)
{
 for (int blend = 255; blend > 200; blend-=5)
  {
   SetLayeredWindowAttributes(Handle, 0, blend, LWA_ALPHA);
   Sleep(10);
  }
}

[Negriz]

Empezado por cHackAll

__fastcall TForm2::TForm2(TComponent* Owner)
  : TForm(Owner)
{
 SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) | WS_EX_LAYERED);
 SetLayeredWindowAttributes(Handle, 0, 255, LWA_ALPHA);
}

void __fastcall TForm2::FormActivate(TObject *Sender)
{
 for (int blend = 200; blend < 256; blend+=5)
  {
   SetLayeredWindowAttributes(Handle, 0, blend, LWA_ALPHA);
   Sleep(10);
  }
}

void __fastcall TForm2::FormDeactivate(TObject *Sender)
{
 for (int blend = 255; blend > 200; blend-=5)
  {
   SetLayeredWindowAttributes(Handle, 0, blend, LWA_ALPHA);
   Sleep(10);
  }
}

gracias lo voy a probar.

[Negriz]

jajaja...
que bien era justo lo que buscaba.

Pero una pregunta: Cuando el formulario principal es el que se activa con este efecto se ve negro???
por que???
solo es curiosidad.

Muchas graicas.

[[cHackAll]]

Al parecer si es "normal". seguramente un problema de la VCL (si es que asi se llama en BCB);

Dejo otro adjunto con una solucion menos técnica.

Saludos

[Negriz]

Empezado por cHackAll

Al parecer si es "normal". seguramente un problema de la VCL (si es que asi se llama en BCB);

Dejo otro adjunto con una solucion menos técnica.

Saludos

Ok... voy a mirar.
Muchas gracias cHackAll.
Lo voy a revisar.

si si se llama vcl.

Gracias.