Forum: Multimedia
Delphi
by ISAS,
19. Jan 2005
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
Forum: Multimedia
Delphi
by ISAS,
19. Jan 2005
Kann mir das bei dir irgendwie nicht so richtig vorstellen. Der Quellcode würde mir schon sehr weiterhelfen, wenn er nicht zu lang ist. Dann könnte ich dir vielleicht eine Antwort samt funktionierendem Quellcode geben :wink:
thnx, isas!
Forum: Multimedia
Delphi
by ISAS,
17. Jan 2005
Ist das überprüfen der collision in OnMouseMove drinn?
Wenn ja, dann mach folgendes:
procedure TForm1.DXDraw1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Maus=Feld then 99 //collision mit Feld
if Maus=Button then 50 //collision mit Button
end;