Mega Code Archive

 

Categories / Delphi / Forms

 

How to animate a form

Title: How to animate a form 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;