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