Animasi Kartun Sederhana

Untuk membuat animasi Kartun sederhana, buatlah 2 buah gambar pada aplikasi Paint .
kemudian tambah kan komponen timer pada DELPHI . Sehingga tampilanya menjadi seperti berikut !

 

kemudian klik 2 kali pada tombol timer dan masukkan listing berikut :

procedure TForm1.Timer1Timer(Sender: TObject);
  var recttujuan,rectasal:trect;
begin
    bmplatar1.Assign(bmplatar);
    rectasal:=rect(0,0,bmpgerak.Width,bmpgerak.Height);
    recttujuan:=rect(posisi,100,posisi+bmpgerak.Width,100+bmpgerak.Height);
    bmplatar1.Canvas.CopyMode:=cmsrcand;
    bmplatar1.canvas.CopyRect(recttujuan,bmpgerak.Canvas ,rectasal);
    bmplatar1.Canvas.CopyMode:=cmsrcpaint;
    canvas.Draw(0,0,bmplatar1); posisi:=posisi+1;
    if posisi >= clientwidth then
    begin
    posisi:=0; close;
    form1.Free;
    end;

setelah itu klik pada form dan klik 2 kali pada object inspektor dan event kemudian double klik pada on create dan masukkan listing berikut :

procedure TForm1.FormCreate(Sender: TObject);
begin
  bmplatar:=tbitmap.create;
  bmplatar.loadfromfile('pemandangan.bmp');
  bmplatar1:=tbitmap.create;
  bmplatar1.assign(bmplatar);
  bmpgerak:=tbitmap.Create;
  bmpgerak.loadfromfile('burung.bmp');
  posisi:=100;
end;

dan double klik lagi pada  on destroy kemudian masukkan listing berikut :

procedure TForm1.FormDestroy(Sender: TObject);
begin
  bmpgerak.Free;
  bmplatar.Free;
  bmplatar1.Free;
end;

setelah itu deklarasikan variabel nya dengan listing berikut ini :

var
  Form1: TForm1;
    bmpgerak,bmplatar,bmplatar1:tbitmap;
    posisi:integer;

Setelah semua listing dimasukkan simpan gambar dan project dalam satu folder dan eksekusi program . Dan program yang dijalankan akan seperti ini .