Mega Code Archive

 

Categories / Delphi / VCL

 

Animate a form

{ 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;