สร้างรูปแบบไดเทอร์ริ่งด้วยเดลฟี

โปรแกรมต่อไปนี้จะสอนวิธีสร้างแบบฟอร์มที่จะเขย่าบนหน้าจออย่างต่อเนื่องเมื่อเปิดใช้งาน

กำหนดตัวแปรสองตัว:

var

BackLeft, BackTop, I: จำนวนเต็ม;

//บันทึกด้านซ้ายของแบบฟอร์ม

กลับซ้าย:= ซ้าย;

//บันทึกส่วนบนของแบบฟอร์ม

BackTop := ด้านบน;

//คุณสามารถตั้งค่าตัวเลขเป็นตัวเลขที่ยืดหยุ่นได้ แน่นอนว่าค่านั้นขึ้นอยู่กับคุณ

สำหรับ I:=1 toNumber ทำ

เริ่ม

//กระวนกระวายใจในแนวนอน

ซ้าย:= (BackLeft-10) + (สุ่ม(20));

//กระวนกระวายใจในแนวตั้ง

บน := (BackTop-10) + (สุ่ม(20));

จบ;

//สำรองด้านซ้ายของแบบฟอร์ม

ซ้าย := ด้านหลังซ้าย;

//สำรองด้านบนของแบบฟอร์ม

ด้านบน := ด้านหลัง;