怎么用delphix来设置背景啊

[gwhdaxia]

这是我的代码

var
BackSprite: TBackGroundSprite;

procedure TMainForm.FormCreate(Sender: TObject);
begin

ImageList.Items.MakeColorTable;
DXDraw.ColorTable := ImageList.Items.ColorTable;
DXDraw.DefColorTable := ImageList.Items.ColorTable;
BackSprite := TBackGroundSprite.Create(DXSpriteEngine1.Engine);

with BackSprite do
begin
SetMapSize(1, 1);
Image := ImageList.Items.Find('background');
Z := -2;
Tile := True;
end;

怎么背景还是老样子黑色的，谁能告诉我那里设置错了

[gwhdaxia]

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
if not DXDraw.CanDraw then exit;

DXSpriteEngine1.Move(50);
DXSpriteEngine1.Dead;

DXDraw.Surface.Fill(0);
DXSpriteEngine1.Draw;

DXDraw.Flip;


end;

[gwhdaxia]

我已经找到错误了

[chijingde]

delphix

我都忘了怎么用了……

[chijingde]

楼主根那个拖鞋男啥关系？

咋都叫阿木咧？

[ly_liuyang]

呵呵，其实有Demo看的

http://lysoft.7u7.net

[S.F.]

创建了是创建了，但精灵管理器没Draw,怎么会显示呢???