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;