Tips (1541)

Tip Rating (3):

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