Hier ist ein Beispiel, damit Ihr meine Frage gut versteht
siehe Anhang
in Panel1 OnmouseMove werden die Maus-Position ermittelt :
Delphi-Quellcode:
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var pt: TPoint;
begin
Pt := Panel1.ScreenToClient(Mouse.CursorPos);
Edit1.Text:=IntToStr(pt.X);
Edit2.Text:=IntToStr(pt.Y);
end;
Nun soll der Timer den Cursor auf einen in die nähe liegenden Punkt positionieren
das ist alles
in dem Beispiel befindet der Cursor in die Koordinaten x=36, y=38
die Aufteilung des Panel sind aber 50 x 50
d.h. der Timer soll den Cursor auf den Punkt 50,50 setzen, da dieser Punkt am näherten ist