Question

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

变量'senderGoogleMaps'填充了公司地址，housenumber和city
将显示包含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);

这段代码有效，但我不能像上面描述的那样工作，有没有简单的解决方案，使其工作。

关心彼得

Answer 1

我以前使用以下代码做了类似的事情。您可能需要更改某些内容，因为它适用于旧版本的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

直接转到Google地图中的地址

1 个答案: