Forms Delphi

  1. Home
  2. Delphi
  3. Forms
  4. 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;