改建dxflowchart 控件

改造dxflowchart 控件
想改造一下DevExpress的dxflowchart控件，就是给框对象(矩形、圆形、三角形等)添加鼠标Cursor属性，在浏览流程图界面，当鼠标移到这个框的位置时，就可以根据设置的Cursor属性显示相应的鼠标状态，比如设置为crHandPoint，就显示为手型。并且将那个框对象突出。
[解决办法]



procedure Tfrm_FlowChart.dxFlowChart1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
  AItem : TdxFcObject;
begin
  //鼠标样式置为默认
  dxFlowChart1.Cursor := crDefault;

  //获取当前鼠标位置下的对象
  AItem := dxFlowChart1.GetObjectAt(x, y);

  //状态栏初始化
  //StatusBarTxt('');

  //AItem不为空, 且是Object  通过Tag设置, 可以控制鼠标样式只在特定对象上有变化
  if (AItem &lt;&gt; nil) and (AItem.Tag &gt;= 0) then
  begin
    //鼠标样式
    dxFlowChart1.Cursor := crHandPoint;
    //状态栏显示当前获取的对象标题
    //StatusBarTxt(AItem.Text);
  end;

  //Caption := IntToStr(x) + ',' + IntToStr(y);
end;

[解决办法]

引用:

非常感谢 simonhehe 猩猩无罪

经过测试，可以实现那效果！

请问要如何导入自制的箭头，dxFlowChart1的连线、箭头太不好看了，现在想可以导入自制的连线、箭头，并且可以调出来绘制流程图！

谢谢！
100分全部奉上！

连线/箭头的图片无法替换, 只能调样式 :(
对象可以换图片 :)

改建dxflowchart 控件

热点推荐