Delphi 设置窗体的属性（最前端显示、淡入淡出效果、滑动效果）

//1、淡入淡出效果、滑动效果
procedure TForm1.FormShow(Sender: TObject);

begin

//AW_SLIDE：滑动类型 ；AW_BLEND：为淡入淡出效果

//AW_HOR_POSITIVE： 自左向右 AW_HOR_NEGATIVE：自右向左

//AW_VER_POSITIVE： 自顶向下 AW_VER_NEGATIVE：自下向上

ANimateWindow(Handle,1000,AW_SLIDE+AW_VER_NEGATIVE);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

ANimateWindow(Handle,1000,AW_SLIDE+AW_VER_NEGATIVE+AW_HIDE);

end;

//2、最前端显示、

procedure TForm1.btn3Click(Sender: TObject);

begin

SetWindowPos(Handle,HWND_TOPMOST,left,Top,Width,Height,0); //设置窗体至上

//SetWindowPos(Handle,HWND_NOTOPMOST,left,Top,Width,Height,0); //恢复正常

end;