Zitat von
ISAS:
Ich sehe eigentlich keinen Fehler bei dir. Mit dem einzigen, mit dem ICH nicht klar komm ist folgendes:
AktSprite := Sprite
und If AktSprite = Nil Then Exit;
Brauchst du das eigentlich!? Klammer das mal aus. Sonst gibs da bei dem Quellcode, den du gepostet hast keinen Fehler. Also muss es dann irgendwo anders liegen
Das erste nutze ich dafür, das ich immer gleich auf den Sprite zugreifen kann (also sowas wie TThumb(Sprite).Visible := False) und das zweite habe ich, damit er die ganze Procedure nicht durchrennt, wenn Sprite eh leer ist...
Schade, hab keine Ahnung wo der Fehler sein soll....