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