Игрушка

[Rusl92]

Здравствуйте, помогите мне пожалуйста: нужно сделать так, чтобы 2 кубика двигались по квадратикам поля (поле квадратное),после нажатия на клавишы, (кубики обьемные) - с помощью каких компонентов можно так сделать?
можете написать примерный код?
Заранее спасибо всем, кто откликнется!

[SERG1980]

Можно например в качестве поля выбрать DrawGrid и в ней отрисовывать кубики предварительно нарисовав их в каком нибудь графическом редакторе.

[Rusl92]

Можно подробнее?

[SERG1980]

Можно так, только в примере движение рандом

[Rusl92]

Можешь написать комментарии к коду???

[Rusl92]

Кстати как сделать чтобы когда кубики сталкивались - они отлетали друг от друга на рандом х и рандорм у???

[SERG1980]

Сообщение от Rusl92

Можешь написать комментарии к коду???

Почитайте про св-ва канвы, объект TBitMap и комментарии будут не нужны

[russian-stalker]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 randomize;
 x2:=random(drawgrid1.ColCount);
 y2:=random(drawgrid1.RowCount);
 DrawGrid1.Canvas.FillRect(DrawGrid1.CellRect(x1,y1));
 DrawGrid1.Canvas.FillRect(DrawGrid1.CellRect(x3,y3));
 DrawGrid1.Canvas.StretchDraw(form1.DrawGrid1.CellRect(x,y),b);
 DrawGrid1.Canvas.StretchDraw(form1.DrawGrid1.CellRect(x2,y2),b1);
 x1:=x;
 y1:=y;
 x3:=x2;
 y3:=y2;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
timer2.Interval:=1;
 x:=drawgrid1.Selection.Left;
 y:=drawgrid1.Selection.top;
end;

Сообственно создай 2 таймер и сможешь управлять одним кубиком

[SERG1980]

Сообщение от Rusl92

Кстати как сделать чтобы когда кубики сталкивались - они отлетали друг от друга на рандом х и рандорм у???

Можно так попробовать