使用Delphi GMLib组件和TGMPolygon,但在视觉上使用ContainsLocation

时间:2016-06-22 20:27:57

标签: google-maps delphi gmlib

GMLib:

嗨,有没有办法执行GMPolygon.Items [0] .ContainsLocation(Lat,Long)如果GMPolygon是TGMPolygon在运行时创建但在.DLL内的对象? (没有视觉成分或形式)

我开始使用Delphi中的以下代码:

WebBrowser:= TWebBrowser.Create(nil);
GMMap:= TGMMap.Create(nil);
GMMap.APIKey:='AIzaSyCjL0m8s-some-key';
GMMap.AfterPageLoaded := AfterLoad;
GMMap.Active:= true;
GMMap.WebBrowser:= WebBrowser;
GMPolygon := TGMPolygon.Create(nil);
GMPolygon.Map:= GMMap;

使用'添加'填充GMPolygon后并使用' AddLinePoints'创建LinePoints。从我的数据库运行:

for I:=0 to GMPolygon.Count-1 do
if GMPolygon.Items[I].ContainsLocation(lat,long) then
result:=GMPolygon.Items[I].Tag; 

但这种情况永远不会得到真正的'

我该怎么办?

0 个答案:

没有答案