在Delphi中怎么使窗口在显示的时候产生动画效果?

Question

AnimateWindow()这个API函数怎么用，最好给个例子!
我在Delphi中这样用它,一点效果都没有,为什么?请高手指点?
procedure TForm1.FormCreate(Sender: TObject);
begin
   AnimateWindow(Application.Handle,10000,AW_SLIDE);
end;

Answer 1

这个这个。。别人写的。。
函数功能：该函数能在显示与隐藏窗口时能产生特殊的效果。有两种类型的动画效果：滚动动画和滑动动画。    函数原型：BOOL AnimateWindow（HWND hWnd，DWORD dwTime，DWORD dwFlags）；    参数：    hWnd：指定产生动画的窗口的句柄。    dwTime：指明动画持续的时间（以微秒计），完成一个动画的标准时间为200微秒。    dwFags：指定动画类型。这个参数可以是一个或多个下列标志的组合。标志描述：    AW_SLIDE：使用滑动类型。缺省则为滚动动画类型。当使用AW_CENTER标志时，这个标志就被忽略。    AW_ACTIVE：激活窗口。在使用了AW_HIDE标志后不要使用这个标志。    AW_BLEND：使用淡出效果。只有当hWnd为顶层窗口的时候才可以使用此标志。    AW_HIDE：隐藏窗口，缺省则显示窗口。    AW_CENTER：若使用了AW_HIDE标志，则使窗口向内重叠；若未使用AW_HIDE标志，则使窗口向外扩展。    AW_HOR_POSITIVE：自左向右显示窗口。该标志可以在滚动动画和滑动动画中使用。当使用AW_CENTER标志时，该标志将被忽略。    AW_VER_POSITIVE：自顶向下显示窗口。该标志可以在滚动动画和滑动动画中使用。当使用AW_CENTER标志时，该标志将被忽略。    AW_VER_NEGATIVE：自下向上显示窗口。该标志可以在滚动动画和滑动动画中使用。当使用AW_CENTER标志时，该标志将被忽略。    返回值：如果函数成功，返回值为非零；如果函数失败，返回值为零。在下列情况下函数将失败：    窗口使用了窗口边界；窗口已经可见仍要显示窗口；窗口已经隐藏仍要隐藏窗口。若想获得更多错误信息，请调用GetLastError函数。    备注：可以将AW_HOR_POSITIVE或AW_HOR_NEGTVE与AW_VER_POSITVE或AW_VER_NEGATIVE组合来激活一个窗口。    可能需要在该窗口的窗口过程和它的子窗口的窗口过程中处理WM_PRINT或WM_PRINTCLIENT消息。对话框，控制，及共用控制已处理WM_PRINTCLIENT消息，缺省窗口过程也已处理WM_PRINT消息。    速查：WIDdOWS NT：5.0以上版本：Windows：98以上版本；Windows CE：不支持；头文件：Winuser.h；库文件：user32.lib。

Answer 2

多谢老兄！不过你写的这些我也知道，就是我不会在Delphi中不会用这个函数！

Answer 3

AnimateWindow(Handle, 600, AW_BLEND or AW_ACTIVATE);//打开
  AnimateWindow(Handle, 600, AW_HIDE or AW_BLEND);//关闭

Answer 4

就上面這個效果不錯，呵呵，多謝CeleronII(抽烟的鱼）和樓主了

Answer 5

dwTime：指明动画持续的时间（以微秒计），完成一个动画的标准时间为200微秒。呵呵呵，考虑过没有200微妙的动画你看的到吗？
应该是毫秒吧，200微秒连一桢都显示不出来，更别说动画了。

Answer 6

对于MDI窗体来说，这个函数有问题。

Answer 7

procedure TForm1.FormClose(Sender: TObject; var Action:TCloseAction);
begin
 AnimateWindow(Handle, 600, AW_HIDE or AW_BLEND);//关闭
end;我在Delphi中这样用了(编译正常),还是出不来效果(即我点击关闭的时候)呀?到底是怎么回事呢?
请CeleronII(抽烟的鱼)指教?

Answer 8

procedure TForm1.FormCreate(Sender: TObject);
begin
 AnimateWindow(Handle, 600, AW_BLEND or AW_ACTIVATE);//
end;我把这个函数放在FormCreate中,在窗口创建的时候很长,并且,创建出的窗口中除了标题栏以外都是透明的,就是没有出来动画效果?呵呵,太奇怪了!

Answer 9

放在OnShow OnHide事件中看看

Answer 10

嗬嗬，在Delphi6+WindowsXP是通过！是淡入淡出效果！

Answer 11

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
    procedure FormHide(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormShow(Sender: TObject);
begin
  AnimateWindow(Handle, 600, AW_BLEND or AW_ACTIVATE);//
end;procedure TForm1.FormHide(Sender: TObject);
begin
   AnimateWindow(Handle, 600, AW_HIDE or AW_BLEND);//关闭end;end.我已经这样用了,可很是遗憾,干脆一点击生成的可执行程序,居然没有任何响应!
只有用Alt+Ctrl+Del才能将它关闭!呵呵，到底怎么搞的?我的调试环境:Delphi6+Win98

Answer 12

感谢众朋友的支持,我最终实现了窗口的动画显示!
实现的函数如下!再次感谢诸位的友情参与!!!
procedure TForm1.FormShow(Sender: TObject);
begin
  AnimateWindow(Handle, 600,AW_CENTER);
end;