Здравствуйте!
При перемещении указателя мыши по карте, нужно определить ближайший объект
procedure Tform_main.mvMapMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Var
resObj : integer;
Point1 : PDoublePoint;
Point2 : PDoublePoint;
begin
form_main.mvMap.SetFocus;
If (MouseX = X) and ( MouseY = Y)
then exit;
MapPoint1.PlaceInp := PP_PICTURE;
MapPoint1.SetPoint(X + mvMap.MapLeft, Y + mvMap.MapTop);
Point1.X := MapPoint1.Point.X;
Point1.Y := MapPoint1.Point.Y;
resObj := mapSeekSelectNearestObject(mvMap.MapHandle,MapObj1.ObjHandle, Point1, Point2,hselN,0); // При выполнении программы выдает ошибку по памяти
Просьба подсказать, что не правильно?
При перемещении указателя мыши по карте, нужно определить ближайший объект
procedure Tform_main.mvMapMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Var
resObj : integer;
Point1 : PDoublePoint;
Point2 : PDoublePoint;
begin
form_main.mvMap.SetFocus;
If (MouseX = X) and ( MouseY = Y)
then exit;
MapPoint1.PlaceInp := PP_PICTURE;
MapPoint1.SetPoint(X + mvMap.MapLeft, Y + mvMap.MapTop);
Point1.X := MapPoint1.Point.X;
Point1.Y := MapPoint1.Point.Y;
resObj := mapSeekSelectNearestObject(mvMap.MapHandle,MapObj1.ObjHandle, Point1, Point2,hselN,0); // При выполнении программы выдает ошибку по памяти
Просьба подсказать, что не правильно?