Bu dersimizde iç içe rastgele kare oluşturmayı öğrenelim. Yaptığınız işlemde butona her tıklandığında formun rastgele bir yerinde iç içe geçmiş kareyi oluşturacaktır.
Kodlar şu şekilde:
Procedure Tform1. Button1 click (sender:object);
Var
Mx,my integer
Begin
Randomize
x:= trunc (...