delphi+mapx,求选中电子地图区域面积问题

[terencegan]

请教各位，开发 环境delphi+mapx,求选中电子地图区域面积问题。
我的代码有问题，请高人指点迷津，谢谢。

部分代码：

var
Form1: TForm1;
//定义测量面积工具工具
const toolarea=2;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
//定义测量面积工具
self.Map1.CreateCustomTool(toolarea,miToolTypePoly,miCrossCursor);
//切换到测量面积
self.Map1.CurrentTool:=toolarea;
end;

procedure TForm1.Map1PolyToolUsed(Sender: TObject; ToolNum: Smallint;
Flags: Integer; const Points: IDispatch; bShift, bCtrl: WordBool;
var EnableDefault: WordBool);
var
dd:FeatureFactory;
pts:CMapxPoints;
style:CMapxStyle;
//面积变量
a:double;


begin
if Flags=miPolyToolInProgress then
begin
if ToolNum=toolarea then
begin
//从下面开始代码有问题
// a:=dd.CreateRegion(pts,style).Area;
FloatToStr(dd.CreateRegion(pts,dd).Area);


end;
end;
end;

[lovend]

帮你顶

[登山者]

Map1.FeatureFactory.CreateRegion(Points, EmptyParam).Area