制作动态效果的Form

procedure TForm3.FormShow(Sender: TObject);
begin
  AnimateWindow(handle,250,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 TForm3.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  AnimateWindow(handle,250,AW_Center or AW_Hide or AW_BLEND);
end;

// 取自LYSoft:  http://lysoft.lz169.com