改造dxflowchart 控件

[grjs2004]

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

[grjs2004]

怎么就没人帮顶呢？

[simonhehe]

有现成的 明天给你发个例子

[simonhehe]

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 <> nil) and (AItem.Tag >= 0) then
  begin
    //鼠标样式
    dxFlowChart1.Cursor := crHandPoint;
    //状态栏显示当前获取的对象标题
    //StatusBarTxt(AItem.Text);
  end;

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

[grjs2004]

谢谢啦！ 我要测试一下，看看效果怎么样！

[simonhehe]

引用 5 楼 grjs2004 的回复:

非常感谢 simonhehe 猩猩无罪 经过测试，可以实现那效果！ 请问要如何导入自制的箭头，dxFlowChart1的连线、箭头太不好看了，现在想可以导入自制的连线、箭头，并且可以调出来绘制流程图！ 谢谢！ 100分全部奉上！

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

[grjs2004]

非常感谢 simonhehe 猩猩无罪 经过测试，可以实现那效果！ 请问要如何导入自制的箭头，dxFlowChart1的连线、箭头太不好看了，现在想可以导入自制的连线、箭头，并且可以调出来绘制流程图！ 谢谢！ 100分全部奉上！