Membuat animasi warna shape berkedip di delphi

Untuk membuat animasi warna shape berkedip - kedip dengan delphi, kita hanya menggunakan komponen timer untuk memanipulasinya, sedangkan untuk mengetahui perubahan warna pada shape digunakan komponen shape yang ada di tab Additional di komponen pallete. sedangkan komponen timer bisa di dapat pada tab system di komponen pallate.
langsung saja,klik ganda/double/dua kali pada timer tersebut dan isikan kodenya seperti di bawah ini :
if Shape1.Brush.Color=clWhite then
Shape1.Brush.Color:=clRed
else
Shape1.Brush.Color:=clWhite;
penjelasan singkat dari listing diatas adalah dengan menyeleksi apakah shape berwarna putih atau tidak, jika berwarna putih makan warna dari shape akan di ganti menjadi merah, begitu juga sebaliknya.

semoga bermanfaat.


referensi : google.co.id