code.txt

对mapx的一点开发代码

               fFtrFactory := Map1.FeatureFactory;
               pItem := CreateOleObject('MapX.Point.5');
               pItem.Set(X1,Y1);

               fNewSymbol := fFtrFactory.CreateSymbol(pItem, Map1.DefaultStyle);
                   //(fNewSymbol);
               fMapSymbol := lyrMyLayer.AddFeature(fNewSymbol,EmptyParam);
               FID := IntToStr(fMapSymbol.FeatureID);
               showmessage(FID);
               self.suiForm1.Caption  := ('x1=' + FloatToStr(x1) + '    y1=' + FloatToStr(y1) );

               try
                frmInput := TfrmInput.Create(self);
                frmInput.strFID := FID;
                frmInput.strX   := FloatToStr(x1);
                frmInput.strY   := FloatToStr(y1);
                frmInput.bytTool := Map1.CurrentTool;
                frmInput.ShowModal;
               finally
                FreeAndNil(frmInput);
               end;

               if self.bytYESNO = 1 then
                begin

                     a := Map1.Annotations.AddText(strName,x1,y1 - 0.0002,miPositionBC);

                     strName := '';
                end;