Delphi-Quellcode:
type
TItem = class(TImageSprite)
public
Name: string;
constructor Create(AParent: TSprite; Sprites: TDXImageList; SName: String;
Sx,Sy: Integer); overload;
end;
implementation
constructor TItem.Create(AParent: TSprite; Sprites: TDXImageList; SName: String;
Sx,Sy: Integer);
begin
inherited create(AParent);
X := Sx;
y := Sy;
z := 3;
Name := SName;
Image := Sprites.Items.Find(SName);
end;
end.
Das ist mein TItem. Eigentlich nur ein TImageSprite mit neuem Constructor um die Erstellung zu vereinfachen und um die Unterscheidung von anderen TImagesprite möglich zu machen.
Wenn ich das programm starte und ein TItem erzeuge (-> TObjectList) dann sehe ich es doppelt: einmal knapp neben den Koordinaten an denen es sein sollte und einmal neben dem Mauszeiger(bewegt sich mit).
[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]