Мастера DELPHI, Delphi programming community Рейтинг@Mail.ru Титульная страница Поиск, карта сайта Написать письмо 
| Новости |
Новости сайта
Поиск |
Поиск по лучшим сайтам о Delphi
FAQ |
Огромная база часто задаваемых вопросов и, конечно же, ответы к ним ;)
Статьи |
Подборка статей на самые разные темы. Все о DELPHI
Книги |
Новинки книжного рынка
Новости VCL
Обзор свежих компонент со всего мира, по-русски!
|
| Форумы
Здесь вы можете задать свой вопрос и наверняка получите ответ
| ЧАТ |
Место для общения :)
Орешник
Коллекция курьезных вопросов из форумов
Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / rsdn.org

 
Чтобы не потерять эту дискуссию, сделайте закладку « предыдущая ветвь | форум | следующая ветвь »

как заставить двигаться объект в массиве [Delphi, Windows]


Leon2009 ©   (26.08.20 08:30

Здравствуйте! как заставить двигаться объект в массиве?
procedure TForm1.chess;
var
i, j: integer; ix, iy : Integer; name1:string;
begin
randomize;
for i := 1 to 5 do
begin
for j := 1 to 5 do
begin
MySphere[i, j] := TGLCube(GLScene_1.AddNewChild(TGLCube)); // ñîçäàåì íîâóþ ñôåðó, â êà÷åñòâå äî÷åðíåãî
//ýëåìåíòà äëÿ GLCube1
with MySphere[i, j] do
begin
Position.X := -i; // ïîçèöèÿ ïî îñè x
Position.Z := -j; // ïîçèöèÿ ïî îñè y
if ((i xor j) and 1)=0 then
MySphere[i, j].Material.FrontProperties.Diffuse.SetColor(255,255,255,10)
else
MySphere[i, j].Material.FrontProperties.Diffuse.SetColor(0,0,0,100);
// îòíîñèòåëüíî èñòî÷íèêà ñâåòà
end;
name1:=MySphere[i, j].Name+inttostr(i)+inttostr(j);
memo1.Lines.Add(name1);
if MySphere[i,j].Name=inttostr([i],[j]) then  MySphere[i, j].TurnAngle:=45
else GLHUDText2.Text:='error';
end;
end;


Leon2009 ©   (26.08.20 08:31[1]

пр: нажал на 1 закрутился куб_1 нажал 2 закрутился куб_2 и.т.п


dmk ©   (26.08.20 22:39[2]

Вам лучше сюда: https://gamedev.ru/forum/
Тут по играм нет никого.


версия для печати

Написать ответ

Ваше имя (регистрация  E-mail 







Разрешается использование тегов форматирования текста:
<b>жирный</b> <i>наклонный</i> <u>подчеркнутый</u>,
а для выделения текста программ, используйте <code> ... </code>
и не забывайте закрывать теги! </b></i></u></code> :)


Наверх

  Рейтинг@Mail.ru     Титульная страница Поиск, карта сайта Написать письмо