窗口显示和关闭的时候出现动画效果

来源：百度文库 编辑：神马文学网 时间：2024/05/27 21:49:42
窗口显示和关闭的时候出现动画效果(转载)2008-02-02 08:07 Windows下有一个函数AnimateWindow,在Delphi自带的Win32 API Help中是找不到的.你可以在Delphi的编辑器中输入windows.等待代码向导出来,继续输入AnimateWindow就能看到确实是存在的Win32 API,它的功能是在显示或者关闭窗体的时候产生动画,如从左向右开屏,从中心向周围开屏等.
语法:function AnimateWindow(hWnd: HWND; dwTime: DWORD; dwFlags: DWORD): BOOL; stdcall;
参数:hWnd : 想要显示动画窗体的句柄
      dwTime : 动画时间数,单位毫秒
      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下使用,淡入淡出效果
例子:
unit Unit1;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls;

type
   TForm1 = class(TForm)
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
     procedure FormCreate(Sender: TObject);
   private
   { Private declarations }
   public
   { Public declarations }
   end;

var Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   AnimateWindow(handle,200,AW_HIDE+AW_CENTER);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   AnimateWindow(handle,200,AW_CENTER);
end;

end.
窗口显示和关闭的时候出现动画效果 拖动窗口出现的黑色方框怎么关闭 Flash实例教程:鼠标响应显示图片的动画效果 javascript窗口淡入淡出效果和读取xml javascript窗口淡入淡出效果和读取xml 成品油调价窗口再度关闭 光线流动的动画效果 showModalDialog的title问题(模态窗口标题显示问题 还原立即窗口和本地窗口的位置 边框和动画作品显示不完整的解决办法 - 敏儿的日志 - 网易博客 excel制作的文字网页显示效果 生韭菜和生姜榨汁服用，我喝完后，出现了一个非常可怕的效果 生韭菜和生姜榨汁服用，出现了一个非常可怕的效果! 生韭菜和生姜榨汁服用，我喝完后，出现了一个非常惊奇的效果! 生韭菜和生姜榨汁服用，我喝完后，出现了一个非常可怕的效果! 生韭菜和生姜榨汁服用，出现了一个非常可怕的效果! 生韭菜和生姜榨汁服用，我喝完后，出现了一个非常可怕的效果! 生韭菜和生姜榨汁服用，我喝完后，出现了一个非常惊奇的效果! 生韭菜和生姜榨汁服用，我喝完后，出现了一个非常可怕的效果!., 生韭菜和生姜榨汁服用，我喝完后，出现了一个非常可怕的效果! 生韭菜和生姜榨汁服用，我喝完后，出现了一个非常可怕的效果！ 生韭菜和生姜榨汁服用，我喝完后，出现了一个非常可怕的效果 出现“无效图片文件”显示的解决办法 空闲的时候，请关闭您的迅雷