白莹:Animate特效失效是什么原因?

Question

我在一个about窗体中应用了Animate特效,特效能够正常显示.代码如下:
procedure TAboutFrm.FormShow(Sender: TObject);
begin
AnimateWindow(aboutFrm.Handle,150,AW_CENTER);
end;procedure TAboutFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
AnimateWindow(aboutFrm.Handle,150,AW_CENTER or AW_HIDE);
end;但当我用主窗体调用它时,特效却不显示了,这是为什么?

Answer 1

调用时要动态创建：
var AboutFrm:TAboutFrm;
begin
   AboutFrm := TAboutFrm.Create(self);
   AboutFrm.Show;
end;