仿MapInfo图层信息工具源码类，使用很简单

{-----------------------------------------------------------------------------
 Unit Name: TMapInfoToolClass
 Author:    duchangyu
 Purpose: 读取显示地图上对象信息的工具
 History:2005-06-29 00:00:48

 开发环境：
    windows xp sp2
   delphi7 + mapx 5.02.38

 用法说明(附示例)：
   1、主程序中uses TMapInfoToolClass；
   2、在主程序窗体中放置按钮 button1
   3、定义全局变量 （implementation后面）
       objMapInfoTool : TMapInfoTool;
   4、添加事件处理函数，形如：
procedure TForm1.button1Click(Sender: TObject);
begin
  objMapInfoTool.UnInstallMapInfoTool;
  objMapInfoTool.CreateMapInfoTool(map1);
  objMapInfoTool.SetCurrentLayer(\'片区图\');
  Map1.CurrentTool := objMapInfoTool.GetToolNum;
end;

-----------------------------------------------------------------------------}

Link URL: http://www.vr168.com/blog/blog.php?do=showone&tid=7