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

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

DoCollision [Delphi, Windows]

Dmitriy Polskoy ©   (2002-12-17 17:56:00) 

Народ помогите обработать столкновение спрайтов (DelphiX). Есть спрайт машины, я хочу, чтобы при столкновении машины, например, уничтожались. Делаю так:
Создание машины

constructor TCar.Create(AParent: TSprite);
begin
inherited;

PixelCheck := True;

Image := Mainform.dxImageList1.Items.Find("Car");
SetAnim("Car", 1, 0);
x := 55;
y := 600;
z := 0;
Gaz := SetCountOfGaz;
ToWantHaveGaz := SetToWantHaveGaz;
YetHaveGaz := False;

Width := Image.Width;
Height := Image.Height;

MovingAngle := UP_MOVE;

AnimLooped := False;
AnimSpeed:=0.4;

LastTimeOfCreation := GetTickCount;
end;

Передвижение

procedure TCar.DoMove(MoveCount: Integer);
begin
....
Collision;
end;

Cтолкновение

procedure TCar.DoCollision(Sprite: TSprite; var Done: Boolean);
begin
inherited;
if Sprite is TCar then Dead;
Collision;
end;

Но в результате объект не удаляется. Подскажите, как мне этого добиться.

---

Dmitriy Polskoy   (2002-12-17 18:20:00) [1]

Народ, спасибо всем, я уже сам разобрался.

---

Наверх