Program berikut ini akan mengajari Anda cara membuat formulir yang akan terus bergetar di layar setelah dijalankan.
Tentukan dua variabel:
var
Kiri Belakang,KembaliTop,I:integer;
//Simpan bagian kiri formulir
Kiri Belakang:= Kiri;
//Simpan bagian atas formulir
BelakangAtas := Atas;
//Nomor tersebut dapat Anda atur sebagai angka yang fleksibel. Tentu saja, nilainya ditentukan oleh Anda.
untuk I:=1 toNumber lakukan
mulai
//Kegelisahan horizontal
Kiri:= (Kiri Belakang-10) + (Acak(20));
//kegugupan vertikal
Atas := (BackTop-10) + (Acak(20));
akhir;
//Cadangkan bagian kiri formulir
Kiri := BelakangKiri;
//Cadangkan bagian atas formulir
Atas := BelakangTop;