So *G* in der Zeit hab ich mir was eigenes gemacht *G* sicher voll umständlich
aber es erfüllt erstma seinen Zweck, werds aber mit div versuchen
Delphi-Quellcode:
begin
p := Image1.ScreenToClient(Mouse.CursorPos);
Wert1 := Round(p.X /10);
Wert1 := p.X - Wert1*10;
if Wert1 < 0 then
Wert1 := Round((p.X -10)/10)
else
Wert1 := Round(p.X /10);
Wert2 := Round(p.Y /10);
Wert2 := p.Y - Wert2*10;
if Wert2 < 0 then
Wert2 := Round((p.Y-10)/10)
else
Wert2 := Round(p.Y /10);
Shape1.Left := Wert1*10;
Shape1.Top := Wert2*10;
end;
SO OK habs mit Div gemacht sind ja dann auch nur 2 zeilen *G*