procedure TForm1.GISMouseMove(Sender: TObject; Shift: TShiftState; Y: Integer);
var
  ptg : TGIS_Point ;
  shp : TGIS_Shape ;
begin
  ptg := GIS.ScreenToMap( Point(x, y ) );
  shp := TGIS_Shape( GIS.Locate( ptg, 5/GIS.Zoom ) ) ; // 5 pixels precision
  if shp = nil then
    StatusBar.SimpleText := ''
  else
    StatusBar.SimpleText := shp.GetField('name');
end; 

void __fastcall TForm1::GISMouseDown(TObject *Sender, TMouseButton Button,
                                     TShiftState Shift, int X, int Y)
{
  TGIS_Point   ptg  ;
  TGIS_Shape  *shp  ;

  if ( GIS->IsEmpty ) return;
  ptg = GIS->ScreenToMap( Point(X, Y) );
  shp = (TGIS_Shape *)( GIS->Locate( ptg, 5/GIS->Zoom, TRUE ) ) ; // 5 pixels precision
  if (shp == NULL)
     StatusBar->SimpleText = "" ;
  else
     StatusBar->SimpleText = shp->GetField("name") ;
} 

Private Sub GIS_OnMouseMove(translated As Boolean, ByVal shift As TatukGIS_DK.X_ShiftState, 
                            ByVal X As Long, ByVal Y As Long)

  Dim ptg As XGIS_Point
  Dim shp As XGIS_Shape

  Set ptg = GIS.ScreenToMap(GisUtils.Point(X, Y))
  Set shp = GIS.Locate(ptg, 5 / GIS.Zoom) ' 5 pixels precision
  If shp Is Nothing Then
    StatusBar.SimpleText = ""
  Else
    StatusBar.SimpleText = shp.GetField("name")
  End If
End Sub 

void CLocateDlg::OnOnMouseDownXgis(BOOL FAR* translated, long button, 
                                   long shift, long X, long Y) 
{
  IXGIS_Point ptg ;
  IXGIS_Shape shp ;
  IXGIS_LayerVector ll ;

  if ( m_gis.get_IsEmpty() ) return ;
  if ( m_gis.get_Mode() != m_gis.XgisSelect ) return ;
  ptg = m_gis.ScreenToMap( m_utils.Point( X, Y ) ) ;

  // just different method then on OnMouseMove - locate based on layer
  ll = m_gis.Get( "states" ) ;
  shp = ll.Locate( ptg, 5. / m_gis.get_Zoom() ) ;

  if ( shp.m_lpDispatch != NULL ) {
    var = shp.GetField( "NAME" ) ;
    str = var.bstrVal ;
    SetDlgItemText( IDC_LABEL, str );
  }
  else {
    SetDlgItemText( IDC_LABEL, _T("") );
  }
}

Private Sub GIS_OnMouseDownEvent(ByVal eventSender As System.Object, 
                                 ByVal eventArgs As AxTatukGIS_DK.IXGIS_ViewerWndEvents_OnMouseDownEvent) 
                                 Handles GIS.OnMouseDown

  Dim ptg As TatukGIS_DK.IXGIS_Point
  Dim shp As TatukGIS_DK.IXGIS_Shape

  ptg = GIS.ScreenToMap(GisUtils.Point(eventArgs.x, eventArgs.y))
  shp = GIS.Locate(ptg, 5 / GIS.Zoom) ' 5 pixels precision
  If shp Is Nothing Then
    StatusBar1.Text = ""
  Else
    StatusBar1.Text = shp.GetField("name")
  End If

End Sub

private void GIS_OnMouseMove(object sender, AxTatukGIS_DK.IXGIS_ViewerWndEvents_OnMouseMoveEvent e)

{

  TatukGIS_DK.XGIS_Point ptg;
  TatukGIS_DK.IXGIS_Shape shp;


  ptg = GIS.ScreenToMap( GisUtils.Point(e.x, e.y ) );
  shp = ( TatukGIS_DK.IXGIS_Shape ) GIS.Locate( ptg, 5/GIS.Zoom , true); // 5 pixels precision
  if( shp == null ) 
    statusBar1.Text = "";
  else 
   statusBar1.Text = ( string ) shp.GetField("name");
}

private void GIS_MouseMove(object sender, System.Windows.Forms.MouseEventArgs e)
{

  TGIS_Point ptg ;
  TGIS_Shape shp ;

  if ( GIS.IsEmpty ) return ;

  // locate a position
  ptg = GIS.ScreenToMap( new Point( e.X, e.Y ) );
  shp = (TGIS_Shape)GIS.Locate( ptg, 5/GIS.Zoom ) ; // 5 pixels precision
  if ( shp == null )
    statusBar1.Text = "" ;
  else
    statusBar1.Text = shp.GetField( "name" ).ToString();
}