动态FORM

procedure TForm1.FormShow(Sender: TObject);
begin
  AnimateWindow(handle,500,AW_Center);
     // AW_BLEND , AW_Center
     // AW_VER_POSITIVE , AW_HOR_POSITIVE
     // AW_HOR_NEGATIVE , AW_VER_NEGATIVE

    //only Win2000,Win XP support AW_Blend value (alpha blend effect)
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  AnimateWindow(handle,500,AW_Center or AW_Hide or AW_BLEND);
end;

本文出自 “601880” 博客，谢绝转载！