onMouseMove bei Image ShowMessage

[Nogge]

Hallo Christian18,
Hast Du schon mal mithilfe von Breakpoints nachgeschaut, ob die Koordinaten, die in deiner Datenbank enthalten sind, innerhalb des Images sind bzw. ob überhaupt etwas in Deiner Datenbank steht? Ich kann sonst jedenfalls nichts Auffälliges am Code entdecken.

Delphi-Quellcode:

procedure TFPositionen.Image1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
  var j : Integer; // Schleifenvariable
      x1, x2, y1, y2 : Integer;
begin
  DM.TPositionen.First; 
  for j:=1 to DM.TPositionen.RecordCount do // Wozu 'ne for-schleife, wenn Du die Variable j nicht benötigst? Benutz ne while- oder repeat-schleife ;-)
    begin
      x1:=DM.TPositionen.FieldByName('X').AsInteger - 3;
      y1:=DM.TPositionen.FieldByName('Y').AsInteger - 3;
      x2:=x1 + 6; // performancesteigernd
      y2:=y1 + 6; // performancesteigernd

      if (x >= x1) and (y >= y1) and (x <= x2) and (y <= y2) then
        begin
          ShowMessage('X: ' + DM.TPositionen.FieldByName('X').AsString + 'Y: ' + DM.TPositionen.FieldByName('Y').AsString); // Y anstatt X
        end;

      DM.TPositionen.Next;
    end;
end;

mfg Nogge