图文解说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对象显示标注的名称是一样的过程，只不过这里显示更多的内容。这种方式的优点是完全与地图集成一体，运行效率效率高。

标签：AsString,地图,mk,高德,FJD,ChinaCock,图文,FieldByName,标注
来源： https://www.cnblogs.com/kinglandsoft/p/16267064.html