Disolver a un Form al cerrarlo

[dec]

Hola,

Prueba con la función "AnimateWindow". Por ejemplo, sitúa el siguiente código en el evento "OnClose" del formulario principal de tu aplicación:

Código Delphi [-]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  AnimateWindow(Self.Handle, 500, AW_HIDE or AW_BLEND);
end;

Echa un vistazo a la ayuda de la función "AnimateWindow", puesto que esta te ofrece más posibilidades que las mostradas arriba.

[Deiv]

Acabo de leer los post,
He estado intentando con AlphaBlend, en cambio con AnimateWindow lo probaré llegando a casa.

Se me presentó la siguiente duda:

Código Delphi [-]
var
i:integer=255;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i:integer;
begin
   Form1.AlphaBlend:=true;
   timer1.enabled:=true;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
    i:=i-1;
    Form1.AlphaBlendValue:=i;
    if i = 80 then
        timer1.Enabled:=false
end;
end.

En este código no pasa nada, pero si el mismo le implemento a un Button al evento OnClick, si trabaja, ¿donde está la diferencia?, pareciera que no hace caso el Timer al evento OnClose. ¿Donde estoy fallando?
Saludos

[[seoane]]

El problema es que aunque actives el timer la aplicacion se cierra sin esperar a que ocurra el primer evento del timer.

Prueba con esto:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i: integer;
begin
  AlphaBlend:=true;
  UpdateWindow(Handle);
  for i:= 50 downto 10 do
    begin
      AlphaBlendValue:= 5*i;
      Sleep(50);
    end;
end;

O prueba con este otro que va haciendo mas pequeño el formulario hasta que desaparece. Hay un monton de posibilidades

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i: integer;
  Rgn: HRGN;
begin
  for i:= 50 downto 1 do
    begin
      Rgn:= CreateRectRgn(0,0,(width*i) div 50,(height*i) div 50);
      SetWindowRgn(Handle,Rgn,True);
      DeleteObject(Rgn);
      Sleep(50);
    end;
end;

[vtdeleon]

Saludos

Sin dar muchas vueltas, creo que es mas factible la solucion propuesta por dec.