0

我有一个带有数据库表格的表格，其中显示了所有公司地址。当我单击 Google 地图按钮时，将执行以下操作

  • 变量“senderGoogleMaps”填充了公司地址、门牌号和城市
  • 将显示一个包含 TWebbrownse 和 gmlib 组件的表单

当表格显示时，它必须直接显示地址，但我无法让它工作。为了解决它，我在该表单上放置了一个 Tedit，将变量分配给 TEdit.Text 并使用代码创建一个 OnKeyDown 事件：

 GMGeoCode.Geocode(sEdit_address.Text);
 if GMGeoCode.Count > 0 then
    GMMap.RequiredProp.Zoom:=17;
    GMMap.SetCenter(GMGeoCode[0].Geometry.Location);

这段代码有效，但我无法像上面描述的那样让它工作，是否有一个简单的解决方案让它工作。

问候彼得

4

1 回答 1

0

一段时间前，我一直在使用以下代码做类似的事情。您可能需要更改某些内容，因为它是针对旧版本的 GMLib，但您可能会明白

WebGMapsGeocoding.Address := SearchString;
if WebGMapsGeocoding.LaunchGeocoding = erOk then
  begin
    WebGMaps.MapPanTo(WebGMapsGeocoding.ResultLatitude, WebGMapsGeocoding.ResultLongitude);
    WebGMaps.Markers.Add(WebGMapsGeocoding.ResultLatitude, WebGMapsGeocoding.ResultLongitude, SearchString, '', True, True, True, False, True, 0);
  end
于 2013-12-12T09:50:52.170 回答