Hola cmm07.
El efecto que buscas se puede hacer con la función
AnimateWindow .
Código Delphi
[-]
procedure TForm1.FormShow(Sender: TObject);
begin
AnimateWindow(Handle, 400, AW_CENTER);
end;
Código Delphi
[-]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
AnimateWindow(Handle, 400, AW_CENTER or AW_HIDE);
end;
Saludos.
