Cara Membuat Animasi Teks Berjalan Dengan Delphi 7

Tags

Jumpa kembali di dunia coding delphi, untuk pemanis sebuah aplikasi memang diperlukan kreatifitas khusus, walau sebenarnya bukan inti dari kerja sebuah aplikasi tapi dengan adanya pemanis seperti teks berjalan atau animasi lainnya diharapkan pengguna aplikasi buatan kita akan lebih merasa nyaman dalam menggunakannya.

Kali ini saya akan berbagi cara membuat animasi teks berjalan menggunakan delphi, disini saya akan memberikan contoh code yang paling mudah dan diharapkan anda bisa mengembangkanya agar menjadi lebih baik.

Untuk membuat animasi teks berjalan dengan delphi dibutuhkan komponen diantaranya:

1 buah Label = TLabel ada di palet standart
1 buah Timer = TTimer ada di palet system

Baiklah sekarang kita masuk ketahap pembuatan atau cara membuat animasi teks berjalan


Pertama buka program delphi anda lalu masukan 1 buah label dan 1 buah timer, agar lebih jelas silahkan perhatikan gambar dibawah ini

Cara Membuat Animasi Teks Berjalan Dengan Delphi

Lalu rubah captian label1 tersebut sesuai dengan keinginan anda, atau saya kasih contoh merubah label tersebut menjadi Selamat datang di www.flyin-dvb.com, untuk besar kecil hurup silahkan rubah di bagian object inspector cari menu font lalu rubah sesuai selera.

lalu klik di timer1 dan arahkan perhatian anda ke object inspercor di bagian kiri menu delphi, untuk properti bawaan nya akan tertera sebagai berikut:

Enabled true
Interval 1000
Name Timer1
Tag 0

Langkah yang harus anda lakukan adalah merubah Interval dari 1000 menjadi 1 atau 2, maka hasilnya akan seperti ini

Enabled true
Interval 2
Name Timer1

Silahkan atur kembali tata letak Label1 agar menarik untuk dilihat nantinya, seperti yang saya tunjukan pada gambar dibawah ini

Cara Membuat Animasi Teks Berjalan Dengan Delphi 7

Sekarang kita masuk ketahap pengcodingan

Dobel klik pada timer1 lalu masukan coding berikut:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Left:=Label1.Left-1;
if Label1.Left <1 then Label1.Left:=500;
end;

Dan langkah terakhir silahkan tekan F9 untuk menjalankannya, semoga berhasil.

Silahkan berkomentar dengan sopan dan tidak meninggalkan link aktip.

Terima Kasih.

EmoticonEmoticon