Объясните пожалуйста , что значат следующие команды :
...
inherited Create;
...
dx:=Round(IntPower(-1,Random(9))); dy:=Round(IntPower(-1,Random(9)));
...
...
xx:=10+Random(Form_Main.ClientWidth-20);
yy:=10+Random(Form_Main.ClientHeight-20);
....
...
inherited Create; //вызываем родительский конструктор
...
dx:=Round(IntPower(-1,Random(9))); //dx = округлить_до_целого((-1) в степени (случайное число от 0 до 9))
dy:=Round(IntPower(-1,Random(9))); //аналогично
...
xx:=10+Random(Form_Main.ClientWidth-20); //xx = случайная координата в пределах клиентской области окна, исключая 10 писк. по краям
yy:=10+Random(Form_Main.ClientHeight-20); //то же самое, только по вертикали
....Это мой 1-й пост поэтому плюс поставить не смогу , но потом сделаю это обязательно . А пока просто спасибо.
Форум Invision Power Board (http://nulled.ws)
© Invision Power Services (http://nulled.ws)