| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
при столкновении двух обьектов уничтожается третий [Delphi, Windows]
MIV © (2004-03-23 20:35:00)Мастера, у меня проблема возникла, посоветуйте пожалуйста.Суть:
procedure TObject1.DoCollision(Sprite: TSprite; var Done: Boolean);
begin
if Sprite is Tobject2 then
Tobject2(Sprite).dead;
end;
- Уничтожается Oject2, как сделать чтобы при столкновении
Object1 и Object2 уничтожался Object3 ?
TButton (2004-03-23 22:37:00) [1]я в растеренности... "во что же мне теперь верить..." (с)Morpheus
MIV (2004-03-23 22:33:00) [2]увы...
TButton (2004-03-23 22:26:00) [3]не работает явный вызов деструктора объекта???
MIV (2004-03-23 21:26:00) [4]
> TButton © (23.03.04 20:49) [1]
> procedure TObject1.DoCollision(Sprite: TSprite; var Done:
> Boolean);
> begin
> if Sprite is Tobject2 then
> Object3.dead; //???
> end;
Нет, такой способ был первым что пришло мне в голову, не работает !
TButton (2004-03-23 20:49:00) [5]procedure TObject1.DoCollision(Sprite: TSprite; var Done: Boolean);
begin
if Sprite is Tobject2 then
Object3.dead; //???
end;
| |
