Cara Membuat Program Tulisan Berjalan atau Running Text Menggunakan Lazarus Free Pascal

 

Tulisan berjalan, sering disebut running text banyak digunakan untuk memberikan informasi berita, harga produk dan lain-lain supaya publik yang melihat dapat mengetahuinya.

Artikel tutorial pemrograman Lazarus Free Pascal tentang cara membuat program tulisan berjalan atau running text. Program ini sangat mudah dibuat dengan memanfaatkan komponen TTimer yang akan memroses prosedur berulang ketika di enabled.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    //Move label
    Label1.Left:= Label1.Left + MovingStep; //Minus MovingStep will move to left
    if not cbRotate.Checked then
    begin
        if (Label1.Left+label1.Width) < 0 then
            Timer1.Enabled:= false
        else
        if Label1.Left > Width then
        Timer1.Enabled:= false;
        end
    else
    begin
        //Moving text to left
        if (Label1.Left+Label1.Width) < 0 then
        Label1.Left:= Width
        else
        //Moving text to right
        if Label1.Left > Width then
        Label1.Left:= 0 - Label1.Width;
    end;

    Panel1.Caption:= inttostr(Label1.Left);
end;

Dalam hal ini, Label1 sebagai obyek tulisan yang berjalan. Untuk membuatnya seolah-olah berjalan dengan merubah nilai Label1.Left secara berulang melalui event Timer1 OnTimer.

Source coder bisa kamu unduh disini. Jangan lupa untuk melihat penjelasan lebih detil cara membuat program tulisan berjalan running text pada video dibawah.