Mujahid: Cara membuat text berjalan pada delphi 7

Cara membuat text berjalan pada Delphi 7

1. Bautlah form seperti gambar di bawah ini.

Tambahkan text dan atur ukuran dan jenis font sesuai selera..

2. Tambahkan button untuk menjalankan text.

3. Tambahkan source code berikut pada button.

var

Form1: TForm1;

jeda:integer=400;

tulisan:string='AHLAN WA SAHLAN...';

n:integer;

implementation

{$R *.dfm}

procedure Delay(t:LongInt);

var mulai,selesai,k:LongInt;

begin

mulai:=GetTickCount;

repeat

Application.ProcessMessages;

selesai:=GetTickCount;

until (selesai-mulai) >=t;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Label1.Caption:='';

Delay(jeda);

for n:=1 to 18 do

begin

Label1.Caption:=Copy(tulisan,1,n);

Delay(jeda);

end;

4. Running program dengan menekan segi tiga hijau yang ada di atas atau tekan F9,dan akan muncul seperti gambar di bawah ini.

Mujahid