高手帮忙:delphi+mapx图元自动标注问题!急急急! ( 积分: 100 )

  • 主题发起人 weiyancheng1181
  • 开始时间
W

weiyancheng1181

Unregistered / Unconfirmed
GUEST, unregistred user!
大家都还记得mapx的那个例子吧,关于标注一个小车的那个代码如下:
procedure TMDIChild.FormActivate(Sender: TObject);
var
unusedVt: OleVariant;
MyFont: TFont;
begin

TVarData(unusedVt).vType := varError;
lyrMyLayer := Map1.Layers.CreateLayer('Cars', unusedVt, 1,unusedVt,unusedVt);
Map1.Layers.AnimationLayer := Map1.Layers.Item(lyrMyLayer.name);
Map1.CreateCustomTool(PLOT_VEHICLE_TOOL, miToolTypePoint,
miSizeCursor, miSizeCursor, unusedVt);

MyFont := TFont.Create;
OleFontToFont(Map1.DefaultStyle.SymbolFont, MyFont);
MyFont.Size := 24;
MyFont.Name := 'MapInfo Transportation';
Map1.DefaultStyle.SymbolCharacter := 66;
end;




能不能实现一个这样的功能:从表的地方传给它经纬度参数,点某一按钮,自动标注,然后循环执行,直到标完为止,各位帮忙,实在不行给个思路,谢谢!
 
顶部