Ist das überprüfen der collision in OnMouseMove drinn?
Wenn ja, dann mach folgendes:
Delphi-Quellcode:
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;
Speichere keine Sachen ab, wie, wenn er eine Zahl bekommt, dass er keine anderen collisionen mehr zulässt. Er soll einfach alle Durchführen. Nun ist die Reihenfolge entscheident. Was ganz hinten ist muss am Anfang hin. Wenn nämlich was im Vordergrund ist, dann muss das erst später überprüft werden.