Membuat Animasi Teks Berkedip di Delphi

Assalamualaikum Wa rahmatullah wa Barokatuh...

Salam Bloger...Bagi Teman-teman sekalian yang suka membuat aplikasi dan Sistem  Informasi di Delphi , pasti sering kebingunan, harus menambahkan hiasan atau tampilan apa yang bagus untuk memperindah aplikasi. Kalian bisa menambahkan Teks Berkedip / Blink teks pada aplikasi kalian.


kali ini Fatra Code akan berbagi tutorial bagaimana membuat animasi teks berkedip di delphi. oke kita langsung saja ke materi.

Peralatan yang digunakan:
- Delphi 7 /Delphi XE3 (terserah anda menggunakan Delphi Versi yang mana)
- Komponen TTimer;
- Komponen TLabel;


Langkah Pembuatan :
- Buka Aplikasi Delphi yang kalian punya
- buat New Project / New Form
- tambahkan TLabel (caption=Latihan Delphi, size = 30 "Kalian Bisa Mengaturnya sesuai dengan keperluan")
- Tambahkan komponen TTimer (atur property Intervalnya menjadi 100)
- Double Klik pada komponen TTimer, lalu isikan coding di bawah ini;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Label1.Visible then Label1.Visible:=False
else label1.Visible:=True;
end;

Penjelasan :
- TTimer berfungsi untuk mengatur agar teks menghilang dan muncul kembali
- Label1 pada coding yang dimasukkan dalam TTimer adalah nama dari TLabel yang kalian masukkan, jika kalian mengubah nya maka ganti sesuai dengan kata yang kalian masukkan
- interval di property TTimer adalah jarak dari kedipan teks, jadi semakin kecil angka yang anda masukkan maka akan semakain cepat teks tersebut berkedip.

Jika Sukses maka tampilan akan seperti ini :

Sekian Tutorial bagaimana membuat animasi teks berkedip di delphi, jika ada masalah silahkan tinggalkan di kolom komentar. sebisanya saya akan membantu.