AGAR TEKS BERJALAN KEKANAN DAN KEKIRI PADA DELPHI

alhamdililah lama sekali tidak posting ke blog karena banyak tugas kuliah,,

sekarang saya mau berbagi script delphi langsung saja ke TKP hehe

pertama dan paling utama tentunya berdoa dulu supaya lancar. Lalu buka delphi 7 anda dan tambahkan 1 label dan 1 timer pada form.

lalu ketikkan script dibawah ini pada timer on click

var   Form1: TForm1;     a,b: BYTE; implementation {$R *.dfm} 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;

  Selamat mencoba :-D