小妹初学.请问一个窗体问题,要原码.哪位大哥肯帮,先谢了.

Question

用这个函数　　　animatewindow
祝：身体健康！

Answer 1

animatewindow
去试试吧？？？？

Answer 2

在onshow里写
AnimateWindow(handle,200,AW_SHOW OR AW_CENTER);
////////////
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  AutoScroll := False;
  repeat
    ScaleBy (93, 100);
    Application.ProcessMessages;
  until Height < 70;
end;也可以：
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  // 正常的工作在此进行
  if CanClose then
  begin
    Randomize;
    AnimateWindow(handle,200,AW_HIDE or Random(16)+1);
    或
    AnimateWindow(handle,300,AW_HIDE or AW_CENTER);
    或
    AnimateWindow(handle,300,AW_HIDE or AW_BLEND);（windwos2000 用效果好）
  end;
end;

Answer 3

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  AutoScroll := False;
  repeat
    ScaleBy (93, 100);
    Application.ProcessMessages;
  until Height < 70;
end;也可以：
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  // 正常的工作在此进行
  if CanClose then
  begin
    Randomize;
    AnimateWindow(handle,200,AW_HIDE or Random(16)+1);
    或
    AnimateWindow(handle,300,AW_HIDE or AW_CENTER);
    或
    AnimateWindow(handle,300,AW_HIDE or AW_BLEND);（windwos2000 用效果好）
  end;
end;

Answer 4

对了，这个animatewindow函数在delphi的帮助中是查不到的，你必须得有一个msdn的全集，那里有这个函数的全部参数的说明，有许多效果，你还是买一个msdn吧！祝：身体健康！

Answer 5

procedure TForm1OnShow(sender:Tobject);
begin
   AnimateWindow(handle,200,AW_SHOW or AW_CENTER);end;

Answer 6

在窗体创建事件中加入AnimateWindow(Handle,1000,AW_CENTER);AnimateWindow的用法可查帮助

Answer 7

它的功能是在显示或者关闭窗体的时候产生动画,如从左向右开屏,从中心向周围开屏等.
语法:function AnimateWindow(hWnd: HWND; dwTime: DWORD; dwFlags: DWORD): BOOL; stdcall;
参数:hWnd : 想要显示动画窗体的句柄
     dwTime : 动画时间数,单位毫秒
     dwFlags : 显示方式,取值如下定义
     1.AW_HOR_POSITIVE = $00000001; // 从左向右开屏
     2.AW_HOR_NEGATIVE = $00000002; // 从右向左开屏
     3.AW_VER_POSITIVE = $00000004; // 从上向下开屏
     4.AW_VER_NEGATIVE = $00000008; // 从下向上开屏
     5,AW_CENTER = $00000010;       // 从中心向四周扩展,在关闭动画中则为从四周向中心收缩
     6.AW_HIDE = $00010000;         // 关闭时候与前面的定义组合使用,如AW_HIDE or AW_CENTER
     7.AW_ACTIVATE = $00020000;     // 与1-5组合,开屏使用
     8.AW_SLIDE = $00040000;        // 与1-5 + 6/7 组合,产生滑行效果
     9.AW_BLEND = $00080000;        // Win2000下使用,淡入淡出效果

Answer 8

to:WnEunfn(斯人不语,  还不语，你讲得最多。