急,解决者双手奉送100分。

急,解决者双手奉送100分。 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_20061113174634152.html
delphi   +mapx   (mapx   5.02.19)  
   
  1.如何进行中文标注  
       
    lyr   :=   Map1.Layers.CreateLayer('tempanimate',   EmptyParam,   1,   EmptyParam,   EmptyParam);  
      map1.Layers.AnimationLayer   :=   lyr;  
      lyr.Visible   :=   true;  
      lyr.Editable   :=   True;  
      pt   :=   CoPoint.Create;  
      mstyle   :=   CoStyle.Create;  
   
      mstyle   :=   Map1.DefaultStyle;  
   
      mstyle.PickSymbol;  
   
      adoquery1.First;  
      WHILE   NOT   adoquery1.Eof   DO  
          BEGIN  
              x   :=   ADOQuery1.fieldbyname('X').AsFloat;  
              y   :=   ADOQuery1.fieldbyname('Y').AsFloat;  
              str   :=   ADOQuery1.fieldbyname('Name').AsString;  
              pt.Set_(x,   y);  
              fts   :=   Map1.FeatureFactory.CreateSymbol(pt,   mstyle);  
   
              fts.type_   :=   miFeatureTypeSymbol;  
   
              fts.KeyValue   :=   str;//fts.keyvalue:为汉字时出现异常  
   
              lyr.AddFeature(fts,   EmptyParam);      
              ADOQuery1.Next;  
   
          END;  
      lyr.AutoLabel   :=   true;  
      lyr.Visible   :=   true;  
      lyr.ZoomMax   :=   77;  
      lyr.ZoomMin   :=   0;  
   
  创建的图层不能进行中文标注.  
  2.如何删除图层图元  
      如何删除从数据库在添加的图元,如上(添加)的图元

是mapinfo吗?如果是需要查MAPINFO。

要中文版本的才可以进行中文标注

那么2呢?  
  怎么写?

看来这个地方真的没高手拉~

我用的控件是mapx   5.02.19    
  是在程序中进行标注  
   
  不是MapInfo.Professional.7.0.SCP.中文版  
  怎么查mapinfo

?????????????

posted on 2008-11-05 09:31  delphi2007  阅读(130)  评论(0编辑  收藏  举报