AnimateWindow动画显示界面时，位置不能居中

Question

我用  AnimateWindow(self.Handle,1000,AW_BLEND)淡入显示窗体时，完成后闪一下界面才居中，而我事先已经在属性里设置了poScreenCenter，但就是不行，淡出的窗体总是设计时的位置，完成一定要跳下才居中，怎么解决？

Answer 1

在OnShow加入弹出式窗口事件：
procedure TForm1.FormShow(Sender: TObject);
begin
   ANimateWindow(Handle,200,AW_SLIDE+AW_HOR_NEGATIVE);
end;
关掉窗口滑动事件在OnClose加入：
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   ANimateWindow(Handle,200,AW_SLIDE+AW_HOR_POSITIVE+AW_HIDE);
end;个人感觉不错，在Left属性和Top属性下调整好位置。AnImateWindow是个api 属性用法：  
    
函数功能：该函数能在显示与隐藏窗口时能产生特殊的效果。有两种类型的动画效果：滚动动画和滑动动画。   
函数原型：BOOL   AnimateWindow（HWND   hWnd，DWORD   dwTime，DWORD   dwFlags）；   
参数：   
hWnd：指定产生动画的窗口的句柄。   
dwTime：指明动画持续的时间（以微秒计），完成一个动画的标准时间为200微秒。   
dwFags：指定动画类型。这个参数可以是一个或多个下列标志的组合。标志描述：   
AW_SLIDE：使用滑动类型。缺省则为滚动动画类型。当使用AW_CENTER标志时，这个标志就被忽略。   
AW_ACTIVE：激活窗口。在使用了AW_HIDE标志后不要使用这个标志。   
AW_BLEND：使用淡出效果。只有当hWnd为顶层窗口的时候才可以使用此标志。   
AW_HIDE：隐藏窗口，缺省则显示窗口。   
AW_CENTER：若使用了AW_HIDE标志，则使窗口向内重叠；若未使用AW_HIDE标志，则使窗口向外扩展。   
AW_HOR_POSITIVE：自左向右显示窗口。该标志可以在滚动动画和滑动动画中使用。当使用AW_CENTER标志时，该标志将被忽略。   
AW_HOR_NEGATIVE：自右向左显示窗口。该标志可以在滚动动画和滑动动画中使用。当使用AW_CENTER标志时，该标志将被忽略。   AW_VER_POSITIVE：自顶向下显示窗口。该标志可以在滚动动画和滑动动画中使用。当使用AW_CENTER标志时，该标志将被忽略。   
AW_VER_NEGATIVE：自下向上显示窗口。该标志可以在滚动动画和滑动动画中使用。当使用AW_CENTER标志时，该标志将被忽略。   
返回值：如果函数成功，返回值为非零；如果函数失败，返回值为零。在下列情况下函数将失败：   
窗口使用了窗口边界；窗口已经可见仍要显示窗口；窗口已经隐藏仍要隐藏窗口。若想获得更多错误信息，请调用GetLastError函数。   
备注：可以将AW_HOR_POSITIVE或AW_HOR_NEGTVE与AW_VER_POSITVE或AW_VER_NEGATIVE组合来激活一个窗口。   
          可能需要在该窗口的窗口过程和它的子窗口的窗口过程中处理WM_PRINT或WM_PRINTCLIENT消息。对话框，控制，及共用控制已处理WM_PRINTCLIENT消息，缺省窗口过程也已处理WM_PRINT消息...窗体 的OnShow事件处理函数中加入下面的代码: 
AnimateWindow(Self.Handle, 500, AW_BLEND or AW_ACTIVATE); OnClose事件中加入 
AnimateWindow(Self.Handle, 500,AW_BLEND or AW_HIDE);

Answer 2

因为 AnimateWindow 是在窗体创建前活动。
所以...需要AnimateWindow完成后才会执行剧中

Answer 3

AnimateWindow有多线程的属性吗？

Answer 4

在form的oncreat里直接设置form剧中，如form1.top=  round( screen.height-form1.height)/2

Answer 5

樓上的對。OnCreate裡面Form1.Top := (Screen.Height - Form1.Height) div 2;
Form1.Left := (Screen.Width - Form1.Width) div 2;
AnimateWindow(self.Handle,1000,AW_BLEND);