如何解决闪烁的问题？

Question

我想做一个界面显示的效果：将Form从中间慢慢向外扩大显示出来！
代码如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
  form1.Height:=10;
  form1.Width:=10;
  while form1.Height<400 do
  begin
    form1.Height:=form1.Height+10;
    form1.Width:=form1.Width+12;
    form1.Position:=poScreenCenter;
  end;
end;可是运行后，会不停的闪烁，请问大侠们，如何不闪烁。还有界面显示效果象“金山词霸2002”里面的效果，再问一下这个效果的实现的其他方法，小弟不胜感激！                           Email: [email protected]
                          --进步才是硬道理

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
AnimateWindow(Handle, 600, AW_CENTER);
end;

Answer 2

form1.DoubleBuffered:=True;while form1.Height<400 do
  begin
    form1.Height:=form1.Height+10;
    form1.Width:=form1.Width+12;
    form1.Position:=poScreenCenter;
　　application.ProcessMessages;
  end;

Answer 3

animatewindow函数已经实现了你这个功能，没必要再做，这点同意 findcsdn(findcsdn),如果一定要这样做，同意 My_first(海浪)