制作动态效果的Form

页面导航:首页 > 软件编程 > Delphi > 制作动态效果的Form

制作动态效果的Form

来源: 作者: 时间:2016-02-05 11:47 【

How to make animateform . do this esay,you need only one API.unit AnimateForm_Unit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type

 

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

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <