delphi 实现窗口动画效果 Animatewindow 的应用

    今天去书店看书，发现了这个技巧，比起我以前用代码实现方便多了；

    该动画效果就是用windows api 函数 :function AnimateWindow(hWnd: HWND; dwTime: DWORD; dwFlags: DWORD): BOOL; stdcall来实现；

     参数说明：hWnd,窗体（Form）的句柄；

                       dwTime,动画效果用时，单位毫秒mm;

                       dwFlags,动画效果类型，可用参数有：

                                      1.AW_HOR_POSITIVE = $00000001; // 从左向右开屏
                                      2.AW_HOR_NEGATIVE = $00000002; // 从右向左开屏
                                      3.AW_VER_POSITIVE = $00000004; // 从上向下开屏
                                      4.AW_VER_NEGATIVE = $00000008; // 从下向上开屏
                                      5,AW_CENTER = $00000010; // 从中心向四周扩展,在关闭动画中则为从四周向中心收缩
                                      6.AW_HIDE = $00010000; // 关闭时候与前面的定义组合使用,如AW_HIDE or AW_CENTER
                                      7.AW_ACTIVATE = $00020000; // 与1-5组合,开屏使用
                                      8.AW_SLIDE = $00040000; // 与1-5 6/7 组合,产生滑行效果
                                      9.AW_BLEND = $00080000; // Win2000下使用,淡入淡出效果