<P>//图元移动</P>
<P>procedure TForm1.Map1MouseMove(Sender: TObject; Shift: TShiftState; X,<BR>  Y: Integer);<BR>  var singlex,singley:single;lon, lat,x1,y1: Double;<BR>  ftr:cmapxfeature;<BR>begin<BR>   singleX := X;<BR>  singleY := Y;<BR>   Map1.ConvertCoord(singleX, singleY, lon,lat, miScreenToMap);<BR>     statusbar1.Panels[0].Text :='X:'+floattostr(lon)+'   Y:='+floattostr(lat);<BR>  <BR> x2:=lon;<BR> y2:=lat;</P>
<P>if po_move then<BR>begin</P>
<P><BR> pnt := CoPoint.Create;</P>
<P>   // ftr:=map1.Layers[3].AllFeatures;<BR>   pnt.Set_(lon, lat);<BR>  fs := Map1.Layers.Item[3].SearchAtPoint(pnt,emptyparam);<BR>    if fs.Count > 0 then<BR>  begin<BR>  // name := fs.Item[1].Name;<BR>    ftr:=fs.Item[1];<BR>    x1:=   lon-ftr.CenterX ;<BR> y1:=  lat- ftr.CenterY ;<BR>     ftr.Offset(x1,y1);<BR>   ftr.Update(emptyparam,emptyparam);<BR>   map1.Layers.Item[3].Refresh ;<BR><BR>end;   end;<BR>     end;</P>
<P>小弟不才,建一个QQ群大家共解迷津 QQ群号:7922457</P>

<P>这里关于属性数据绑定的例子很少啊！我现在就实现最普通的normal绑定，却不知道该怎么设置，请高手指教！bindlayerobj:= CoBindLayer.Create;<BR>  bindlayerobj.LayerType:= miBindLayerTypeNormal; <BR>  bindlayerobj.LayerName:='全国地图';<BR>  map1.Datasets.add(midatasetADO,ADOQuery2.Recordset,'market','MAPINFO_ID',EmptyParam,bindlayerobj,EmptyParam,False);</P>
<P>其中的'MAPINFO_ID'字段为用来进行[匹配的字段，就是属性数据库中的id号，到底该如何设置啊？我这样设置，报错误为：不能自动的匹配geofield字段或者是bindlayer，这样是为什么啊？</P><img src="images/post/smile/dvbbs/em08.gif" /><img src="images/post/smile/dvbbs/em08.gif" /><img src="images/post/smile/dvbbs/em08.gif" />

有没有后悔功能的程序？

<img src="images/post/smile/dvbbs/em03.gif" />hao

<img src="images/post/smile/dvbbs/em02.gif" />very nice

<P>如何求道路上两点之间的距离（道路距离）</P>
<P>MapX_+Delphi</P>

<P><img></P><P>请高手帮忙解决这个问题？</P>

<P><img></P><P>清高手指教，</P>

<P>unit Unit1;</P><P>interface</P><P>uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, OleCtrls, MapXLib_TLB;</P><P>type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    Map1: TMap;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;</P><P>var
   Form1: TForm1;
   path : string;
implementation</P><P>{$R *.dfm}</P><P>procedure TForm1.FormCreate(Sender: TObject);
var
   bindLayerObject:cmapxBindLayer;
   mapds:cmapxDataset;
   mapLayer : cmapxLayer;
   mapLabel : cmapxLabelProperties;
   ss: cmapxFields;
begin
   //ADODataSet1.Recordset
   path :=ExtractFilePath(application.ExeName);
   path := path + 'Maps\重庆.gst';
   map1.GeoSet := path;
   bindLayerObject := coBindLayer.Create;
   bindLayerObject.LayerName := 'ADS_Point';
   bindLayerObject.RefColumn1 := 'Lon';
   bindLayerObject.RefColumn2 := 'Lat';
   bindLayerObject.LayerType := miBindLayerTypeXY ;
   ss := coFields.Create;
   ss.Add('Lon', 'Lon', miAggregationSum,miTypeFloat);
   ss.Add('Lat', 'Lat', miAggregationSum,miTypeFloat);
   ss.Add('Name', 'Name', miAggregationSum,miTypeString);
   //mapds := codataset.Create;
   mapds := map1.Datasets.Add(miDataSetADO, ADODataSet1.Recordset, 'ADS_Point', 'Name', null, bindLayerObject, ss, false);
end;
end.</P><P>报错。project project`.exe raised exception class eacessviolation with message'access violation at address 1002A049 in module 'mapx40.ocx'</P><P>请教</P>

<P>所有非代码的跟贴请楼主删掉（包括我这条）。本来这种帖子就长，再乱灌，就没法看了。</P>