PERTEMUAN KE-6

Cara membuat  Tulisan berjalan pada Delphi membutuhkan baeberapa komponen, yaitu :

1. TTimer
2. TLabel
3. dan TPanel
langkah selanjutnya, Pertama :

Buat sebuah form di delphi
masukan komnen seperti diatas ke dalam form

Seperti screenshot dibawah ini :


isi code Program sperti berikut :
Pada Variable isi dengan
var
  Form1: TForm1;
  a,b: BYTE;
implementation
{$R *.dfm}
Note : tulisan merah adalah Variable untuk menjalankan perintah "Tulisan Berjalan Kiri dan Kanan"
 

Kedua
isi code berikut pada TTimer
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if      Label1.Left > 550 then b:=1
else if Label1.Left < 2   then b:=0;
if b=0 then Label1.Left:=Label1.Left+1
else Label1.Left:=Label1.Left-1;
end;

Ketiga :

RUN > F9