DevExpress 的 flowchart组件使用时遇到问题！！！

[pingping08]

大家好！
最近我在用第三方控件dxflowchart画流程图是遇到一个问题，烦请大家有空之余帮小弟看看：
问题是这样的：
我想对Tdxflowchart控件的连线（connection)画上箭头:
procedure TForm1.Button1Click(Sender: TObject);
var
NewObject : TdxFcObject;
NewConnection : TdxFcConnection;
begin
NewObject := dxFlowChart1.CreateObject(5, 5, 25, 25, fcsEllipse);
NewObject.Text := 'first object';
NewObject:=dxFlowchart1.CreateObject(5,75,25,25,fcsEllipse);
NewObject.Text:='last object';
NewConnection :=dxfolwchart1.CreateConnection(dxflowchart1.Objects[0], dxflowchart1.Objects[1], 12, 2);
dxflowchart1.connections[0].ArrowDest.ArrowType := fcaArrow;
end;
执行时没有箭头显示，若是箭头是事先在窗体画好的，则有箭头。不知何解？请大家帮帮忙，指点一下我啊！！谢谢了！！

[pingping08]

不好意思，有几个错别字，最后一行应是，“执行时没有箭头显示，若是连线是事先在窗体画好的，则有箭头。
不知何解？请大家帮帮忙，指点一下我啊！！谢谢了！！

[pengxuan]

procedure TForm1.Button1Click(Sender: TObject);
var
  NewObject:TdxFcObject;
  NewConnection:TdxFcConnection;
begin
  NewObject:=dxFlowChart1.CreateObject(5,5,25,25,fcsEllipse);
  NewObject.Text:='first object';
  NewObject:=dxFlowchart1.CreateObject(5,75,25,25,fcsEllipse);
  NewObject.Text:='last object';
  NewConnection:=dxFlowChart1.CreateConnection(dxflowchart1.Objects[0],dxflowchart1.Objects[1],12,2);
  dxflowchart1.connections[0].ArrowDest.ArrowType:=fcaArrow;
  dxflowchart1.connections[0].ArrowDest.Width:=1 * 5 + 5;//定义箭头
  dxflowchart1.connections[0].ArrowDest.Height:=1 * 5 + 5;//定义箭头
end;