...die AnimateWindow Funktion verwenden?

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

  Mit der AnimateWindow Funktion kann man spezielle Effekte
  erzeugen beim Zeigen, Unsichtbarmachen (hide) einer Form.
}



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.
}

printed from
www.swissdelphicenter.ch
developers knowledge base