|
阅读：1427回复：1
delphi求助:请问我将搜索到的地名放入listbox中,然后双击列表中的某项如何返回地图显示它的位置?
请问我将搜索到的地名放入listbox中,然后双击列表中的某项如何返回地图显示它的位置?delphi的说
|
|
|
1楼#
发布于：2005-01-25 22:56
<P> i:=listbox.itemindex;
str:=listbox.Items; layername := comblytxt.Text; //application.MessageBox(PCHAR(layername),'',0); lyraccurate := mainmap.Layers.Item[comblytxt.ItemIndex+1]; lyrnamedate:=mainmap.Datasets.Add(miDatasetLayer,lyraccurate,EmptyParam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam) ; foundobj := lyraccurate.Find.Search(str,EmptyParam); if foundobj.findrc>0 then // mod 1 = 1 begin //foundobj.FindFeature. mainmap.ZoomTo(1,foundobj.centerx,foundobj.centery); mainMap.Layers.Item[comblytxt.ItemIndex+1].LabelAtPoint(foundobj.centerx,foundobj.centery); lyraccurate.Selection.SelectByPoint(foundobj.centerx,foundobj.centery,miSelectionNew,miSearchResultDefault ); end else exit;</P><P>end;</P> |
|
