有关程序启动画面的问题!!!

Question

我调用API函数写了如下程序:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  AnimateWindow(handle,2000,AW_BLEND or AW_hide);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  AnimateWindow(handle,2000,AW_BLEND or AW_Activate);
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  form1.Close;
end;
为什么在程序执行的时候启动画面不是从屏幕的中心开始启动,如何才能将它始终控制在屏幕的中央进行显示呢??????请高手赐教!!!

Answer 1

AnimateWindow API 函数中有一个参数可改成中心显示出现，但我也不记得是哪个参数了

Answer 2

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  AnimateWindow(handle,2000,AW_CENTER or AW_hide);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  AnimateWindow(handle,2000,AW_CENTER or AW_Activate);
end;