Search Engine Submission - AddMe Membuat teks Berjalan Pada Delphi : Sulton's Blog Membuat teks Berjalan Pada Delphi ~ Sulton's Blog

Ruang Info - Update

Tutorial PowerPoint

Selasa, 15 Mei 2012

Membuat teks Berjalan Pada Delphi

Kita bisa memprcantik tampilan program yang kita buat dengan membuat text yang berjalan dengan memanfaatkan fungsi timer. Langka-langkaya adalah sebagai brikut :
1. Buatlah form sepeti pada gamar 16. Gunakan label untuk membuat text yang akan kita jalankan. Caranya rubah pada properties caption ganti label1 dengan text yang kita inginkan. Untuk mengatur kecepatan text saat berjalan, click timer1 ganti properties interval menjadi 5 yang terdapat pada object inspector.

Gambar 16. Desain form

2. Setelah selesai membuat form doble click timer1 dan masukan code berikut pada code editor.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.left = -245 then label1.Left := 280;
Label1.Left := Label1.Left-1;
end;


3. Setelah selesai jalankan program dengan mengclik tombol Run pada panel atau tekan F9 pada keyboard.

0 komentar:

Posting Komentar

Dapatkan uang disini

Link Terkait