{**********************************************************************
API函数 AnimateWindow 使用:
函数功能:窗体显示和隐藏时产生特殊的动画效果;可以产生两种类型的动画效果:
          滚动动画 和 滑动动画
函数原型:BOOL AnimateWindow(HWND hWnd, DWORD dwTime, DWORD dwFlags)
参数说明:hWnd 指定产生动画效果的窗体的句柄;
          dwTime 指定动画持续的时间(以为秒计算),完成一个动画的标准时间
                 为200微秒;
          dwFlags  指定动画类型。这个参数可以是一个或多个下列标志的组合;
标志说明:AW_SLIDE 使用滑动类型。缺省则为滚动动画类型。当使用AW_CENTER
                   标志时,这个标志就被忽略。
          AW_ACTIVE 激活窗口。在使用了AW_HIDE标志后不要使用这个标志。
          AW_BLEND 使用淡出效果。只有当hWnd为顶层窗口的时候才可以使用此标志。
          AW_HIDE 隐藏窗口,缺省则显示窗口。
          AW_CENTER 若使用了AW_HIDE标志,则使窗口向内重叠;若未使用AW_HIDE
                    标志,则使窗口向外扩展。
          AW_HOR_POSITIVE 自左向右显示窗口。该标志可以在滚动动画和滑动动画
                          中使用。当使用AW_CENTER标志时,该标志将被忽略。
          AW_HOR_NEGATIVE 自右向左显示窗口。该标志可以在滚动动画和滑动动画
                          中使用。当使用AW_CENTER标志时,该标志将被忽略。
          AW_VER_POSITIVE 自顶向下显示窗口。该标志可以在滚动动画和滑动动画
                          中使用。当使用AW_CENTER标志时,该标志将被忽略。
          AW_VER_NEGATIVE 自下向上显示窗口。该标志可以在滚动动画和滑动动画
                          中使用。当使用AW_CENTER标志时,该标志将被忽略。
返回值: 如果函数成功,返回值为非零;如果函数失败,返回值为零。在下列情况
         下函数将失败:窗口使用了窗口边界;窗口已经可见仍要显示窗口;窗口
         已经隐藏仍要隐藏窗口。若想获得更多错误信息,请调用GetLastError函
         数。
备注:   可以将AW_HOR_POSITIVE或AW_HOR_NEGTVE与AW_VER_POSITVE或AW_VER_NEGATIVE
                  组合来激活一个窗口。   
**********************************************************************}
//从下面往上面滚动
procedure TForm1.FormCreate(Sender: TObject);
begin
  AnimateWindow(Handle, 1000, AW_SLIDE + AW_VER_NEGATIVE);
end;

//渐渐隐去
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
  AnimateWindow(Handle, 2000, AW_SLIDE + AW_BLEND + AW_HIDE);
  Application.Terminate;
end;

http://www.lsworks.net/article/51.html

Delphi使用Windows API函数AnimateWindow实现窗体特效的更多相关文章

  1. Windows API 函数列表 附帮助手册

    所有Windows API函数列表,为了方便查询,也为了大家查找,所以整理一下贡献出来了. 帮助手册:700多个Windows API的函数手册 免费下载 API之网络函数 API之消息函数 API之 ...

  2. C#调用Windows API函数截图

    界面如下: 下面放了一个PictureBox 首先是声明函数: //这里是调用 Windows API函数来进行截图 //首先导入库文件 [System.Runtime.InteropServices ...

  3. Delphi内存操作API函数(备查,并一一学习)

    Delphi内存操作API函数System.IsMemoryManagerSet;System.Move;System.New;System.ReallocMem;System.ReallocMemo ...

  4. Windows API函数大全(完整)

    Windows API函数大全,从事软件开发的朋友可以参考下 1. API之网络函数 WNetAddConnection 创建同一个网络资源的永久性连接 WNetAddConnection2 创建同一 ...

  5. [windows菜鸟]Windows API函数大全(完整)

    Windows API函数大全,从事软件开发的朋友可以参考下 1. API之网络函数 WNetAddConnection 创建同一个网络资源的永久性连接 WNetAddConnection2 创建同一 ...

  6. 用Windows API函数(CreateFile/ReadFile/WriteFile/CloseHandle)完成文件拷贝程序(初级版)

    文件拷贝程序 程序类型:Console 参数:源文件名   目的文件名 要求:1.只能使用Windows API函数(CreateFile/ReadFile/WriteFile/CloseHandle ...

  7. C# 窗体常用API函数 应用程序窗体查找

    常用的处理窗体的API函数如下(注意:API函数必须放在窗体中...): 使用C#语言,要引用DllImport,必须要添加using System.Runtime.InteropServices命名 ...

  8. VBS调用Windows API函数

    Demon's Blog 忘记了,喜欢一个人的感觉 Demon's Blog  »  程序设计  »  VBS调用Windows API函数 « 用VBS修改Windows用户密码 在VB中创建和使用 ...

  9. Python调用Windows API函数编写录音机和音乐播放器

    功能描述: 1)使用tkinter设计程序界面: 2)调用Windows API函数实现录音机和音乐播放器. . 参考代码: ​ 运行界面: ​

随机推荐

  1. Android 展示键盘时候布局被修改的问题

    解决方法,在mainfest.xml中,对那个Activity加: <activity android:name=".activity.HomeActivity"androi ...

  2. Window10安装TestLink,以及登录mysql数据库的错误处理

    步骤一: 需要安装apache和mysql,但是我们这里仅仅是使用testlink,不关注其他,所以使用Vertrigoserv进行傻瓜式安装,安装完后,下载testlink解压,将解压后的文件放入D ...

  3. Digital Roots(hdoj1013)

    Problem Description The digital root of a positive integer is found by summing the digits of the int ...

  4. JAVA中synchronized和lock详解

         目前在Java中存在两种锁机制:synchronized和Lock,Lock接口及其实现类是JDK5增加的内容,其作者是大名鼎鼎的并发专家Doug Lea.本文并不比较synchronize ...

  5. IT技术 | 让程序员抓狂的排序算法教学视频

    点击「箭头所指处」可快速关注传智特刊微信号:CZTEKAN 原文地址:http://mp.weixin.qq.com/s?__biz=MjM5OTM4NDMyMg==&mid=20056820 ...

  6. 杭电oj1236 排名

    Tips:此题比较简单,最好将每一个学生的信息构建一个结构体,另外需要注意的是,若分数相同,排序按姓名排序,我看网上很多都是使用<algorithm>中的sort算法,只需重写cmp函数即 ...

  7. curl断点续载

    摘自http://blog.csdn.net/zmy12007/article/details/37157297 摘自http://www.linuxidc.com/Linux/2014-10/107 ...

  8. JSP指令 include 和forward

     包括指令:include     静态包括         <%@include file="要包括的文件路径" %>                 先将所包括 ...

  9. hdu1814 Peaceful Commission,2-sat

    题目大意:一国有n个党派.每一个党派在议会中都有2个代表,现要组建和平委员会,要从每一个党派在议会的代表中选出1人,一共n人组成和平委员会.已知有一些代表之间存在仇恨,也就是说他们不能同一时候被选为和 ...

  10. 有一种设计风格叫RESTful

    一 前言 刚看了<RESTful Web APIs中文版>.试读了前两章. 每本书的第一章都是抽象得不得了,是整本书的总结:开篇说基础有点简单,从教你怎么向地址栏输入地址訪问网页開始(某人 ...