AnimateWindow如何给控件做动画？

Question

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

Answer 1

嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻
嘻嘻嘻以实为证嘻嘻嘻嘻
嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻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;

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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;