Скачать: CL | DM;

как убить все спрайты   Найти похожие ветки 

← →
Sewix ©   (2002-09-11 08:00) [0]

Работаю с DelphX на Delphi 6. Когда человек проигрывает хочу уничтожить все спрайты и инициализировать их заново. КАК УНИЧТОЖИТЬ ВСЕ СПРАЙТЫ

---

← →
Владимир Васильев ©   (2002-09-11 14:24) [1]

если при создании спрайта ты в качестве Parent передавал не nil, а , напр., MainForm.SpriteEngine.Engine то Parent самостоятельно удалит всё:

For i:=1 to 5 do
With TGameUnit.Create(MainForm.SpriteEngine.Engine) do
begin
....
end;

то для удаления всех объектов :
MainForm.SpriteEngine.Engine.Clear;

Если же ты самостоятельно управляешь объектом (Draw, x,y, ....), - передаёшь nil -
Progress2:=TProgress.Create(nil);
with Progress2 do
begin
Image := MainForm.ImageList.Items.Find("Progress1");

и соответственно
Progress2.Free;

---

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

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.017 c