Мини-проекты в Delphi

Проект «Мультик»

 Для того чтобы получить мультипликацию нужно сменять друг за другом картинки с небольшими изменениями, которые отражают движение. Воспользуемся для этого объектом ImageList. Он позволяет хранить небольшие рисунки одинакового размера.
Разместим на форме  Image1 и установим ширину Width=137 Height=157 (по размерам заготовленных рисунков), Stretch=true; Такие же размеры и для ImageList1. В него используя кнопку «Add» нужно занести все заготовленные рисунки (с расширением bmp).
Для размещения рисунка в Image1 используется метод Assign свойства Image1.Picture:
Image1.Picture.Assign(Ris), где Ris – имя переменной для рисунков. Объявим переменные
n : integer;
Ris : TBitmap;
Разместим две кнопки класса TButton с надписями «Пуск» и «Стоп», а также таймер Timer1 и установим для него Enabled=false и Interval=100.

В инспекторе объектов для формы выберем процедуру загрузки onCreate:

procedure TForm1.FormCreate(Sender: TObject);
begin
   n:=0;
   Ris:=TBitmap.Create;
   ImageList1.GetBitmap(N, Ris);
end;

Для кнопок «Пуск» и «Стоп»:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled :=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    Timer1.Enabled :=false;
end;

Остается написать процедуру смены «кадров». Для этого используется таймер.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  dec(n);
  if n = -1 then
    n:=ImageList1.Count-1;
  ImageList1.GetBitmap(N, Ris);
  Image1.Picture.Assign(Ris);
end;

Набор рисунков к программе mult.zip