开发者社区> 史迪奇2号> 正文

【old】仿MapInfo图层信息工具源码类,使用很简单

简介:
+关注继续查看


 

n年前写的基于MapInfo的信息查询工具,曾发布到当时比较火的GIS论坛。没想到现在还经常有人问我要,因为原先的论坛访问不了。虽然现在不用MapInfo了,但也算了为了存档放在这里吧。

 

{-----------------------------------------------------------------------------
Unit Name: TMapInfoToolClass
Author: duchangyu 杜长宇 msn:duchangyu@hotmail.com Email: changyudu@163.com
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;

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

 

200610261033214707.rar

 

作者:峻祁连
邮箱:junqilian@163.com 
出处:http://junqilian.cnblogs.com 
转载请保留此信息。



本文转自峻祁连. Moving to Cloud/Mobile博客园博客,原文链接:http://www.cnblogs.com/junqilian/archive/2009/11/03/1595273.html,如需转载请自行联系原作者

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
飞天加速计划初体验
最近因需要使用云服务器来学习,老师让我们用这个阿里云类进行相关的学习,让我们先进行免费的使用进行学习,慢慢了解,毕竟对于首次接触的事物都是了解为主不会投入大量资金。阿里云平台有详细的教程,让初学者能十分轻松的进行学习。飞天加速计划是个好想法,可以让我们这些学生进行学习,制作出自己的网站。让我在暑假对计算机有了浓厚的兴趣,于是在阿里云我选择了飞天加速计划,学习大数据和服务器啥的,让自己get到更多的知识~
5 0
我的ECS使用体验报告
学生用户初次使用阿里云服务器的体验报告
6 0
Vue-Cli 脚手架安装教程
开发vue项目的时候一般是通过vue-cli脚手架进行开发。之所以成为脚手架就是因为他通过webpack搭建的开发环境直接生成开发所需要的基本模板,我们只需要在模板中进行开发即可。接下来详细记录下在自己的电脑上安装vue-cli脚手架的步骤以及问题。
4 0
数据结构必知 --- 红黑树
数据结构必知 --- 红黑树
7 0
Python 网络编程2:UDP-发送、接收数据
Python 网络编程2:UDP-发送、接收数据
3 0
862
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
OceanBase 入门到实战教程
立即下载
阿里云图数据库GDB,加速开启“图智”未来.ppt
立即下载
实时数仓Hologres技术实战一本通2.0版(下)
立即下载