首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

,dxflowchart遇到有关问题?请大家帮忙!

2012-10-21 
求救,dxflowchart遇到问题?请大家帮忙!!!大家好!最近我在用第三方控件dxflowchart画流程图是遇到一个问题,

求救,dxflowchart遇到问题?请大家帮忙!!!
大家好!
最近我在用第三方控件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;
执行时没有箭头显示,若是连线是事先在窗体画好的,则有箭头。不知何解?请大家帮帮忙,指点一下我啊!!谢谢了!!

[解决办法]

Delphi(Pascal) code
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; 

热点排行