Formulario que pierde el foco en tranparente

Cabanyaler · #4 23-11-2004

... Ya está.
Creo que me estaba equivocando, pero sólo lo creo, poniendo la propiedad AlphaBlend a False cuando tocaba ser True.
Ahora con el siguiente código en el evento Activate del secundario me sale perfectamente.
Gracias por todo.

Código Delphi [-]procedure TFInstaladores.FormActivate(Sender: TObject);
begin
   // Pongo semitransparaente el form desactivado
   FPrincipal.AlphaBlendValue := 155;
   FPrincipal.AlphaBlend      := True;
end;

Y para ponerlo en activo al salir del secundario y volver al principal...

Código Delphi [-]procedure TFInstaladores.BitBtnCerrarClick(Sender: TObject);
begin
// Pongo semitransparaente el fom desactivo
   FPrincipal.AlphaBlend      := False;
   FPrincipal.AlphaBlendValue := 255;
   FInstaladores.Close;
end;