[Genry]

Сообщение от san-46

Код:

constructor TPlayerSprite1.Create(AParent: TSprite);
begin
    PixelCheck := True;
    Image := MainForm.DXImageListAnime1.Items.Find('obichniy');
    x:=10;
    y:=200;
    Width := Image.Width;
    Height := Image.Height;
end;

В FormCreate не нужно повторять то же самое.

Код:

procedure TMainForm.FormCreate(Sender: TObject);
var 
  PS1 : TPlayerSprite1; 
  PS2 : TPlayerSprite2;
begin
  PS1 := TPlayerSprite1.Create(Dxspriteengine.Engine);
  PS2 := TPlayerSprite2.Create(Dxspriteengine.Engine);
end;

Дело в том, что PS1 и PS2 переменные уничтожается после конца процедуры.