Membuat Marquee di delphi

Setelah lama tidak membuat tutorial tentang tips delphi, akhirnya kesampaian juga untuk membuat tutorial yang satu ini, yaah walaupun sederhana tapi lumayan lah buat nambah ilmu.. hehehehe, langsung aja deh bagaimana membuat marquee di delphi, bagi yang belum tahu marquee itu apa, marquee itu membuat tulisan bergerak dari kiri ke kanan, kanan ke kiri, atas ke bawah, bawah ke atas, yang biasanya digunakan pada aplikasi web..

ok deh sebagai contoh akan aku tampilkan bentuk dari marquee yang ada di web.
kayak ini nie yang namanya marquee

nah sekarang kita akan membuat tampilan marquee itu di bahasa pemograman DELPHI, bisa untuk delphi7 maupun delphi2010. karena source code nya sederhana. langsung aja cek di TKP

1. pertama yang harus dilakukan sudah jelas yaitu membuka aplikasi delphi7 atau delphi2010.
2. atur form seperti gambar di bawah ini

3. tambahkan label, dan timer seperti gambar di bawah ini

4. setelah itu klik form trus pilih event onShow; ketikan source code di bawah ini
procedure TForm1.FormShow(Sender: TObject);
begin
Form1.Width:=Screen.Width;
Label1.Left:=Screen.Width;
end;
5. setelah itu klik timer, atur intervalnya menjadi "100". kalau sudah, klik 2x pada timer tersebut dan isilah source code di bawah ini
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Left:=Label1.Left-5;
end;
maka, label akan bergeser ke kiri, code di atas digunakan untuk mengurangi posisi dari label. nah untuk selanjutnya yaitu bagaimana caranya supaya, kalimat yang kita buat sudah selesai melewati batas screen/form kembali lagi ke tempat semula??
caranya : klik 2x pada timer kemudian tambahkan code sehingga menjadi seperti ini :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Left:=Label1.Left-5;
if Label1.Left < -(Label1.Width) then Label1.Left:=Screen.Width; end;

setelah itu jalankan aplikasinya dengan menekan F9. dan ini lah hasilnya

dan ini


untuk source code lengkapnya di bawah ini:
unit Umarquee;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
procedure FormShow(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
Form1.Width:=Screen.Width;
Label1.Left:=Screen.Width;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Left:=Label1.Left-5;
if Label1.Left < -(Label1.Width) then Label1.Left:=Screen.Width; 
end; 
end.


selamat mencoba....