100分求一個函數﹐如何使窗體以動畫的形式打開。所有分給一人@#$%^

Question

是一個函數﹐我見到過﹐不過又忘記了﹐多謝謝﹗

Answer 1

AnimateWindow(Self.Handle, 250, AW_BLEND or AW_ACTIVATE);  AW_HOR_POSITIVE = $00000001;
  {$EXTERNALSYM AW_HOR_NEGATIVE}
  AW_HOR_NEGATIVE = $00000002;
  {$EXTERNALSYM AW_VER_POSITIVE}
  AW_VER_POSITIVE = $00000004;
  {$EXTERNALSYM AW_VER_NEGATIVE}
  AW_VER_NEGATIVE = $00000008;
  {$EXTERNALSYM AW_CENTER}
  AW_CENTER = $00000010;
  {$EXTERNALSYM AW_HIDE}
  AW_HIDE = $00010000;
  {$EXTERNALSYM AW_ACTIVATE}
  AW_ACTIVATE = $00020000;
  {$EXTERNALSYM AW_SLIDE}
  AW_SLIDE = $00040000;
  {$EXTERNALSYM AW_BLEND}
  AW_BLEND = $00080000;

Answer 2

procedure tform1.formshow(sender:tobject);
begin
animatewindow(handle,500,aw_center);
end;
//500是時間(單位毫秒),aw_center自窗體中間向外擴散,其他參數看樓上的自己試

Answer 3

这个动画好吗，为什么不自己写一个重构你的FORM呢？