Use the AnimateWindow function

Spread the love

Use the AnimateWindow function

The AnimateWindow function enables you to produce
special effects when showing or hiding windows.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.BringToFront;
  AnimateWindow(Form2.Handle, 3000, AW_BLEND);
  Form2.Show;

 {The 3. parameter can be one or more of the following values:
  Der 3. parameter kan folgende Werte annehmen:

  AW_BLEND : Uses a fade effect
  AW_SLIDE : Uses slide animation.
  AW_ACTIVATE : Activates the window
  AW_HIDE : Hides the window.
  AW_CENTER : Makes the window appear to collapse inward
  AW_HOR_POSITIVE : Animates the window from left to right.
  AW_HOR_NEGATIVE : Animates the window from right to left
  AW_VER_POSITIVE : Animates the window from top to bottom
  AW_VER_NEGATIVE : Animates the window from bottom to top
 }
end;

Requirements:
Windows NT/2000/XP: Included in Windows 2000 and later.
Windows 95/98/Me: Included in Windows 98 and later.