как убить все спрайты

← →
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;

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