Membuat Form Berjalan

//Membuat Form Berjalan

//Masukkan 2 buah button ...


//Masukkan kode ini di button 1 ;
Begin
while form1.left > 0 do begin
application.processmessages;
form1.left := form1.left -1 ;
end;
end;


//Kemudian Di button2

Begin
while form1.left < (screen.width -form1.width ) do begin
application.processmessages;
form1.left := form1.left +1 ;
end;
end;


//button 1 ...form Berjalan Ke kiri sampai mentok
//button 2 ...form Berjalan Ke kanan sampai mentok