Belajar Delphi Text Berjalan Atau Running Text
Apa yang gres ya..? oh iya terima kasih telah membaca artikel post sebelumnya Belajar Delphi Memasukan Suara/Musik. Membahas wacana running text niscaya angan-angan kau tulisannya dapat berlari. Ya,benar itu istilah indonesianya hahaha..,bukan sekedar itu saya akan bahas cara berjalannya dan berganti caption secara otomatis. Ini bahan masih awal-awalnya menjadi pemogramman yang handal, jadi sedikit demi sedikit ya mitra jikalau ingin menjadi master coding itu butuh proses.
Belajar Delphi Text Berjalan/Running Text
Tahap pertama yang harus kau lakukan ialah gunakan komponen “TLabel” dan masukan pada form Delphi kau dan beri caption yang kau inginkan. Misalnya saya beri caption “Selamat Datang” nah jangan lupa untuk mengganti font nya semoga keren.
Tahap kedua, kau memerlukan komponen “TTimer”,masukan komponen timer kedalam form. Komponen ini dipakai untuk pengganti caption dan pergerak goresan pena tersebut.
Tahap ketiga, buatlah variable pemanggilnya misalnya menyerupai 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 sehabis begin a:=1; .Kalau masih belom paham coba lihat gambar dibawah ini.
Tahap final 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 ialah caption yang akan muncul ketika berjalan,isikan sesuai yang kau inginkan.
Sekian untuk berguru delphinya, see you next time.
Sumber http://pamsatria.blogspot.com
0 Response to "Belajar Delphi Text Berjalan Atau Running Text"
Post a Comment