Coding Animasi Kapal Sederhana Delphi 7

Haloo semuaa ヽ(*・ω・)ﾉ
Beberapa hari yang lalu aku udah nunjukin cara membuat animasi sederhana dengan Delphi 7, jadi kali ini aku akan nunjukin animasi yang lebih sederhana lagi. Yaitu dengan 2 gambar aja!
Okay, kalau gitu ayo kita mulai~!

Pertama kalian buat 2 gambar. Gambar kapal kecil dan laut. Kalian bisa menggambar sendiri di Paint atau cari di google. Setelah itu simpan gambarnya dalam bentuk Bitmap (.bmp). Di animasi ini aku menggambar sendiri kapal dan lautnya :D walaupun gambarnya ngasal hahaha.

Kemudian kita masukkan komponen Timer ke Form

Terus masukkan codingnya:

procedure TForm1.FormCreate(Sender: TObject);

begin

//loading

bmplatar:=tbitmap.create;

bmplatar.loadfromfile('Laut.bmp');

//copying

bmplatar1:=tbitmap.create;

bmplatar1.assign(bmplatar);

bmpgerak:=tbitmap.Create;

bmpgerak.loadfromfile('Ship.bmp');

posisi:=0;

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

bmpgerak.Free;

bmplatar.Free;

bmplatar1.Free;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var

  recttujuan,rectasal:trect;

begin

bmplatar1.Assign(bmplatar);

rectasal:=rect(0,0,bmpgerak.Width,bmpgerak.Height);

recttujuan:=rect(posisi,105,posisi+bmpgerak.Width,105+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;

end;

end.

Setelah itu tinggal kalian run atau tekan F9. Sipp, selesai! Selamat mencoba~