制作动态效果的Form
2002-11-04 13:10
316 查看
How to make animateform .
do this esay,you need only one API.
unit AnimateForm_Unit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var Form1: TForm1;
implementation
{$R *.DFM}
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;
end.
Liu Yang 2001.9.3 ly_liuyang@21cn.edu.cn
do this esay,you need only one API.
unit AnimateForm_Unit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var Form1: TForm1;
implementation
{$R *.DFM}
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;
end.
Liu Yang 2001.9.3 ly_liuyang@21cn.edu.cn
相关文章推荐
- 如何将几个DBGRID里的内容导入同一个EXCEL表中?
- IE6.0打印机制解析
- 纠正:HashPasswordForStoringInConfigFile中的Md5算法并非常用的Md5算法
- 让ActiveX控件设计状态在容器中的大小锁定!
- 软件蓝领?
- 如何为Delphi程序添加事件和事件处理器
- 单独使用CRecordSet
- WebEmail免费邮件发送组件!!
- 在发电机组控制中累计运行时间的计算
- MSComm编程的一个误解
- WebFields 免费自定义字段组件
- 程序打成Jar包以后,访问路径的方法
- 仅供娱乐: 用中文命名,让汉字走向程序开发中!
- GoodUI专栏——OFFICE 11 BETA UI抢先报道
- 输入法简介
- WM_APPCOMMAND和增强输入设备
- 脚本的DVD开发
- DVD的界解码
- 使用Sample Grabber过滤器扑获图像
- DirectShow中的时间戳的简单讲解