Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.26;
Скачать: CL | DM;

Вниз

DoCollision   Найти похожие ветки 

 
Dmitriy Polskoy ©   (2002-12-17 17:56) [0]

Народ помогите обработать столкновение спрайтов (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) [1]

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



Страницы: 1 вся ветка

Текущий архив: 2003.05.26;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.012 c
3-83403
Шурик Ш
2003-05-06 17:05
2003.05.26
А как заставить BDE в любом случае спрашивать пароль?


1-83484
NetKnight
2003-05-15 14:12
2003.05.26
Drag and Drop


1-83561
Till
2003-05-13 14:37
2003.05.26
Export in Excel


14-83682
socks
2003-05-04 20:28
2003.05.26
опять PiNG .....


1-83531
lovres
2003-05-13 11:43
2003.05.26
Вопрос про QReport