Hello, we are really happy that you have reached us. However, since you are viewing the forum as a visitor, you cannot benefit from many features of the forum. How about taking advantage of all the features exclusive to our members by registering? You can register right now, taking just 2 minutes of your time. We would love to see you among us.
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 (...