Problem mit einer Weltmap und 10x10er kästchen...

[sakura]

Dann mal so

Delphi-Quellcode:

begin
p := Image1.ScreenToClient(Mouse.CursorPos);
Wert1 := p.X div 10;
Wert1 := p.X - Wert1 * 10;
if Wert1 < 0 then
Wert1 := (p.X -10) div 10
else
Wert1 := p.X div 10;
Wert2 := p.Y div 10;
Wert2 := p.Y - Wert2 * 10;
if Wert2 < 0 then
Wert2 := (p.Y-10) div 10
else
Wert2 := p.Y div 10;
Shape1.Left := Wert1 * 10;
Shape1.Top := Wert2 * 10;
end;

Wert1 und Wert2 als Integer deklarieren

......