[font=Verdana, Arial, sans-serif]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:[/FONT]
[font=Verdana, Arial, sans-serif]Kod:[/FONT]
Kodlar şu şekilde:[/FONT]
[font=Verdana, Arial, sans-serif]Kod:[/FONT]
Kod:
Procedure Tform1. Button1 click (sender:object);
Var
Mx,my integer
Begin
Randomize
x:= trunc ( random*form1.width);
y:= trunc ( random*form1.height);
Fori:= 10 down to do
Canvas. Rectangle(x+i*10, y+i*10,x-i*10,y-i*10);
End;