Contoh Procedure 3

//Procedure 3

{
Kali ini kita akan Membuat Procedure Yang Berguna Untuk Membuat Pengubah Posisi Button Yang di klik

Buat 2 buah button ...
}


//Procedure

Procedure Ubah (x,y : integer ; Btn : tbutton ) ;
Begin
btn.left := x ;
btn.top := y ;
end;


//======= Button1 =========
Begin

ubah (random(form1.width) , random(form1.top) , Tbutton(sender) ) ;

end;


// BUtton 2 Juga Sama dengan button1 ....



{

Tbutton(sender) , Adalah Tipe data button Yang kita klik atau kita sender ...

}