制作动态效果的Form

 
How to make animateform .
  do this esay,you need only one API.
unit AnimateForm_Unit;
inte易做图ce
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

补充：软件开发 , Delphi ,

上一个：用程序模拟键盘和鼠标键盘
下一个：WindowsAPI函数使用技巧