| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Обращение к свойствам спрайта через процедуру другого спрайта. [Delphi, Windows]

Smoke_Gomel ©   (2004-05-01 12:18:00) 

Я создаю 2 спрайта :Thero1 и Thero2 (TImageSprite),как мне из процедуры
Thero1.DoCollision изменить x и y координаты другого спрайта? Подскажите пожалуйста.

---

Smoke_Gomel   (2004-05-02 09:56:00) [1]

Cash
Спасибо большое. Ты мне сильно помог.

---

Cash   (2004-05-02 09:29:00) [2]

Ну если DelphiX, то делать это можно так:

Procedure Thero1.DoCollision(Sprite: TSprite; Done: Boolean);
begin
 if Sprite is Thero2then begin
   Sprite.X:=Sprite.X- 2;
   Sprite.Y:=Sprite.Y- 2;
    //Обращение к св-вам THero2
   (Sprite as THero2).Energi:=(Sprite as THero2).Energi-10;
 end;
end;


---

Наверх