Kann man oben sehen, aber awrte ich poste es noch mal...
Delphi-Quellcode:
Procedure TfrmMain.FormCreate(Sender: TObject);
Begin
TilesErst;
End;
Procedure TfrmMain.TilesErst();
Begin
Hendrik := TTiles.Create(frmMain.DXSpriteEngine1.Engine);
With Hendrik Do
Begin
X := 780;
Y := 82;
Z := 10;
Image := frmMain.DXImageList1.Items.Find('Hendrik');
Width := Image.Width;
Height := Image.Height;
Visible := True;
End;
End;
Denkst du der Fehler hängt da irgendwo mit drin?