图文解说ChinaCock高德地图组件-显示多个标注(四)

前文介绍了如何在地图上通过设置标注来采集位置的经纬度，当用户采集了多个实体的位置信息后，我们就可以在地图上一次性显示这些实体的标注了！

基于前文，接下来在地图上的做标注就很简单了，可以复用以前的代码，具体参阅：图文解说ChinaCock高德地图组件采集坐标 (二)

接下来，我们再做一个过程：

procedure TMarkerMapFrame.MarkerAll; var   mk: TCCuniGUIAMap.TMarker; begin   with UniMainModule do   begin     q.Close;     q.Query.Text := '你的查询语句';     q.Open;      q.First;     while not q.Eof do     begin       mk := AddMarker(q.FieldByName('FJD').AsFloat, q.FieldByName('FWD').AsFloat, q.FieldByName('FName').AsString);        if (q.FieldByName('FJD').AsString <> '') and (q.FieldByName('FJD').AsString <> '') then       begin         mk:=  AddMarker(q.FieldByName('FJD').AsFloat, q.FieldByName('FWD').AsFloat, q.FieldByName('FName').AsString);        mk.CustomParams.Values['name']:=q.FieldByName('FName').AsString;       end;       q.Next;     end;   end;   // 适应地图对象 让所有对象都在地图最佳区域内   self.CCuniGUIAMap1.SetFitView(True);  end;

该过程，通过查询一个TDataSet并循环这个数据集，在循环过程中调用AddMarker方法，在地图上画出每个实体的标注。

画完所有的标注，调用地图的SetFitView方法，让所有的标注点正好都显示在地图上。

同样，基于前文，可以实现当用户鼠标移动到一个标注时显示他的名称，但问题来了，如果用户想了解一个标注点时，如何支持呢？

这里，我是这样实现的，就是当用户在一个标注点上单击鼠标，隐藏原来的名称标签，换成一个大的标签来显示详细信息。

在实现的过程中，测试了两种方案，都可以满足上面的需求，接下来，分别介绍这两种方案的实现过程：

一、纯Delphi实现方式

利用一个uniPanel组件，基于他设计详细的显示内容，注意这里的优点，就是可视化的设计这个Panel，发挥想象，你可以放置任意你想放置的可视控件进去。

二、标签实现方式

基于地图控件的Text属性来显示详细内容，与前文的实现，利用标签Text对象显示标注的名称是一样的过程，只不过这里显示更多的内容。这种方式的优点是完全与地图集成一体，运行效率效率高。