Delphi forma mediante la función de API para lograr las funciones de efectos especiales AnimateWindow

AnimateWindow usando funciones de la API: 
Función: generar y visualizar una forma especial de ocultar la animación; puede producir dos tipos de animación: 
          la rodadura y deslizamiento de animación animación 
prototipo de función: BOOL AnimateWindow (HWND hWnd, DWORD dwTime, DWORD dwFlags) 
Parámetros Descripción: hWnd identificador especificado formulario generado efecto de animación; 
          dwTime especificar la duración de la animación (segundo pensamiento), el tiempo para completar una animación estándar 
                 200 microsegundos; 
          los dwFlags especifican el tipo de animación. Este parámetro puede ser una combinación de una o más de las siguientes banderas; 
Flag Descripción: AW_SLIDE tipo deslizante. El valor por defecto estaba rodando tipo de animación. Cuando AW_CENTER 
                   cuando el indicador, este indicador se ignora. 
          AW_ACTIVE ventana activa. No utilice este indicador después de usar la bandera AW_HIDE. 
          AW_BLEND usando efecto de desaparición gradual. Sólo cuando el hWnd de la ventana de nivel superior puede usar esta bandera. 
          AW_HIDE ocultar la ventana, la ventana se muestra por defecto. 
          Si la bandera AW_HIDE AW_CENTER utilizado, por lo que las ventanas se solapan en lo interior, si no se utiliza AW_HIDE 
                    bandera, de modo que la expansión hacia el exterior de la ventana. 
          AW_HOR_POSITIVE de izquierda a derecha ventana de visualización. Este indicador puede desplazarse animación y animación de diapositivas
                          Uso. Cuando se ignorará la bandera AW_CENTER. 
          AW_HOR_NEGATIVE de derecha a izquierda ventana de visualización. Este indicador puede desplazarse animación y animaciones de diapositivas 
                          uso. Cuando se ignorará la bandera AW_CENTER. 
          ventana de la pantalla de arriba hacia abajo AW_VER_POSITIVE. Este indicador puede desplazarse animación y animaciones de diapositivas 
                          uso. Cuando se ignorará la bandera AW_CENTER. 
          AW_VER_NEGATIVE ventana hacia arriba de la pantalla. Este indicador puede desplazarse animación y animaciones de diapositivas 
                          uso. Cuando se ignorará la bandera AW_CENTER. 
Valor de retorno: Si la función tiene éxito, el valor de retorno es cero; si la función falla, el valor de retorno es cero. En los siguientes casos 
         en virtud de la función fallará: Ventana con el borde de la ventana, la ventana ya está siendo visibles ventana de visualización; ventana 
         se ha ocultado todavía oculto. Para obtener información sobre el error, llamar a la función GetLastError 
         número. 
Nota: Puede AW_HOR_POSITIVE o AW_HOR_NEGTVE con AW_VER_POSITVE o AW_VER_NEGATIVE 
                  combinación para activar una ventana.   
************************************************** ******************************************************** }
 // de abajo hacia arriba la rodadura 
ProcedimientoTForm1.FormCreate (Sender: TObject);
comenzar 
  AnimateWindow (Handle, 1000 , AW_SLIDE + AW_VER_NEGATIVE);
terminar ; 

// 渐渐隐去
procedimiento TForm1.SpeedButton4Click (Sender: TObject);
comenzará 
  AnimateWindow (Mango, 2000 , AW_SLIDE + + AW_BLEND AW_HIDE); 
  Application.Terminate; 
terminar ;