Главная страница
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.017 c
11-83433
Kirill
2002-08-20 22:14
2003.05.26
About Form


3-83324
Dusic
2003-05-07 10:14
2003.05.26
BDE для Access


1-83587
SKYNET
2003-05-13 12:09
2003.05.26
ShowModal


3-83344
Seven
2003-05-05 06:54
2003.05.26
Upper в Interbase


3-83396
Lefan
2003-05-06 11:37
2003.05.26
TDataModule