TEXT (yang seolah-olah) BERJALAN

Berikut adalah langkah-langkah membuat text yang terlihat seolah-olah berjalan:

1.       Buatlah Form utama;

2.       Kemudian buatlah teks pada form tersebut

Dengan menggunakan icon

3.       Kemudian masukkan teks, sesuaikan, font, maupun ukurannya font yang akan ditampilkan pada object inspector seperti pada gambar

4.       Tambahkan button/tombol pada form. Dengan cara pilih ikon pada gambar di bawah ini.

Sesuaikan tombol yang akan ditampilkan

5.       Lalu double klik tombol itu dan masukkan code seperti di bawah ini

var

  Form1: TForm1;

  jeda:integer=400;

  tulisan:string='Assalamu Alaikum';

  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 16 do

 begin

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

 Delay(jeda);

 end;

end;

6.       Kemudian jalankan form tersebut dengan menekan F9 pada keyboard

Kira-kira seperti inilah hasilnya,