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

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