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 [email protected] 
|
本类阅读TOP10