读书人

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

发布时间: 2012-10-21 09:00:07 作者: rapoo

求救,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; 

读书人网 >.NET

热点推荐