AnimateWindow如何给控件做动画？

[Linux2001]

我用AnimateWindow给TListView和TPanel做动画，完全没有反应，为什么啊，代码就是和窗口动画一样，但是句柄是TListView和TPanel的句柄，其他没有变，但是窗体创建时有动画，他们没有动画

[sunon]

可能 AnimateWindow 函数只能对窗口有效，看看微软件的MSDN中的文档吧！

[王集鹄]

嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻
嘻嘻嘻以实为证嘻嘻嘻嘻
嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻

procedure TForm1.FormShow(Sender: TObject);
begin
AnimateWindow(Handle, 300, AW_ACTIVATE or AW_CENTER);
AnimateWindow(Panel1.Handle, 300, AW_ACTIVATE or AW_CENTER);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Panel1.Visible := False;
end;

[王集鹄]

Panel1.Color := clRed; //改个颜色好看

[xzgyb]

windows控件也是窗口阿
我试了
AnimateWindow(Panel1.Handle, 1000, AW_HIDE or AW_HOR_POSITIVE);
倒是隐藏了，但没有什么动画效果

[王集鹄]

Panel1.Color := clRed; //改个颜色好看
Panel1.Color := clRed; //改个颜色好看
Panel1.Color := clRed; //改个颜色好看
Panel1.Color := clRed; //改个颜色好看
Panel1.Color := clRed; //改个颜色好看
Panel1.Color := clRed; //改个颜色好看

[王集鹄]

procedure TForm1.Button1Click(Sender: TObject);
begin
AnimateWindow(Panel1.Handle, 1000, AW_HIDE or AW_HOR_POSITIVE);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
AnimateWindow(Panel1.Handle, 1000, AW_ACTIVATE or AW_HOR_POSITIVE);
end;