...animate a form?

Author: Andreas Mascher
Homepage: http://www.maschers.de

Category: VCL

{
  Very simple but nice method to animate your form!

  Sehr simple Methode, um auf Knopfdruck und einer Animation
  jede Formfenstergröße zu verändern. Sieht echt nicht schlecht aus!
}

procedure TForm1.Button2Click(Sender: TObject);
var
  ani: Integer,
begin
  Form1.Width := 372;
  ani := 372;
  repeat
    ani := ani + 1;
    Form1.Width := ani;
  until ani >= 656;
end;
end;

printed from
www.swissdelphicenter.ch
developers knowledge base