Am besten verwendest du TImageSprite.
Delphi-Quellcode:
...
type
TItem = class(TImageSprite)
private
public
procedure erzeugen;
end;
var
Item: TItem;
...
procedure TItem.erzeugen;
begin
Image := DxImageList.Items.Find('Bild1');
Width := Image.Width;
Height := Image.Height;
X := 10;
Y := 10;
Z := 1;
end;
procedure TForm1.Create ...
begin
Item := TItem.Create(DxImageSprite.Engine);
Item.erzeugen;
end;