Ver Mensaje Individual
  #4  
Antiguo 23-11-2004
Avatar de Cabanyaler
Cabanyaler Cabanyaler is offline
Miembro
 
Registrado: jun 2003
Ubicación: País Valencià
Posts: 339
Reputación: 21
Cabanyaler Va por buen camino
Talking

... 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;
__________________
El meu país és tan petit, que des de dalt d'un campanar es pot veure el campanar veí.
Responder Con Cita