Apa yang baru ya..? oh iya terima kasih telah membaca
artikel post sebelumnya Belajar Delphi Memasukan Suara/Musik. Membahas tentang running text pasti angan-angan
kamu tulisannya bisa berlari. Ya,benar itu istilah indonesianya hahaha..,bukan
sekedar itu saya akan bahas cara berjalannya dan berganti caption secara
otomatis. Ini materi masih awal-awalnya menjadi pemogramman yang handal, jadi bertahap ya kawan kalau ingin menjadi master coding itu butuh proses.
Belajar Delphi Text Berjalan/Running Text
Tahap pertama yang harus kamu lakukan adalah gunakan komponen “TLabel”
dan masukan pada form Delphi kamu dan beri caption yang kamu inginkan. Misalnya
saya beri caption “Selamat Datang” nah jangan lupa untuk mengganti font nya
biar keren.
Tahap kedua, kamu memerlukan komponen “TTimer”,masukan
komponen timer kedalam form. Komponen ini digunakan untuk pengganti caption dan
pergerak tulisan tersebut.
Tahap ketiga, buatlah variable pemanggilnya contohnya seperti dibawah ini.
var
a :integer;
a :integer;
Tahap akhir,Klik
kotak Form dan masuk ke Properties-Events,dan klik Event,lanjut Klik dua kali
pada samping kanan OnAktivate dan isikan syntax code setelah begin a:=1; .Kalau
masih belom paham coba lihat gambar dibawah ini.
Tahap akhir pengisian syntax codenya pada Timer1,jangan lupa dibawah begin,seperti ini.
Label1.Left
:= Label1.Left - 2;
if
(label1.Left <=1) then
begin
label1.Left
:= 664;
a:= a+1;
if a=1 then
begin
label1.Caption
:= '…………………….';
end
else
if a=2 then
begin
label1.Caption
:= '………………………..';
end
else
if a=3 then
begin
label1.Caption
:= '……………………..';
a:=0;
end;
end;
end;
Untuk
titik-titik itu adalah caption yang akan muncul saat berjalan,isikan sesuai
yang kamu inginkan.
Sekian untuk
belajar delphinya, see you next time.
This is dummy text. It is not meant to be read. Accordingly, it is difficult to figure out when to end it. But then, this is dummy text. It is not meant to be read. Period.