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

[Teklab]

Habs jetzt so und es funzt super ohne fehler *G*

Delphi-Quellcode:

var p: TPoint;
    Wert1: Shortint;
    Wert2: Shortint;
begin
p := Image1.ScreenToClient(Mouse.CursorPos);
Wert1 := p.X div 10;
Wert2 := p.Y div 10;
Image2.Left := Wert1*10;
Image2.Top := Wert2*10;
end;