如何实现像建模工具画图那种效果？(50分)

请问如何实现像建模工具画图那种效果，
可任意做直线、矩形及圆等且可自由拖动及删除。

你是在找这样的控件吗 如果自己做可就辛苦了
DevExpress FlowChart 1.21 就可以做这些工作

DevExpress FlowChart 等， 可以满足你的要求。
http://soft.0zones.com/Search_Soft.asp

二位，谢谢了!
我找到这个控件了，好好学习!

怎么分全给了mstar,呵呵

yostgxf，对不起，按错了键没有给你分值了。

呵呵，没关系的。我已经这样损失了好几百分了

yostgxf,您好。
我想请问一下：我下载了DevExpress FlowChart 控件，能不能通过修改其中的主程序dxflchrt.pas文件，进行控件属性的修改，并注册生效？
因为我修改了这个文件，想在TdxFlowChart类中增加一个属性lhp,而它是继承TdxCustomFlowChart类的，所在以在TdxCustomFlowChart = class(TCustomControl)类定义中先申明：TLHP = (ssNone,ssPCP, ssLKP);
private
Flhp: TLPH;
.......
procedure SetLhp(const Value: TLHP);
......
public
property lhp:Tlhp read Flhp write SetLhp;
........
implementation
.......
procedure TdxCustomFlowChart.SetLhp(const Value: TLHP);
begin
........
end;


然后在
　TdxFlowChart = class(TdxCustomFlowChart)
published　
propert lhp;
......
end;

编译通过，可是在此控件的Object Inspector属性栏中为何看不到lhp的属性设置呢？

1。当然可以，它有完全源码的。
2。应该不会，重新编译，安装一下应该可以的。

我上面所加的一个:lhp 属性写法，哪里错了，能指点一下吗？
因为我以前没有写过控件，近二天写了点，上面写法编译还是没有效果。
谢谢你的帮助。

TO yostgxf: 你好! 关于那个控件，我想再次向你请教一个问题：
如何在TdxFcItem类添加一个属性MyProperty:String; 就像其Text属性一样，可以自由定义并保存。因为TdxFcObject、TdxFcConnection为TdxFcItem的子类，所以它们也继承这个MyProperty属性。
我可以做到定义，并且可以写入，如下代码：
var
Ob:TdxFcObject;
begin
Ob:=chart.CreateObject(10,10,100,100,fcsRoundRect);
Ob.Text:='=你在他乡还好吗';
Ob.MyProperty:='lhp';
end;

可是当保存并退出来之时我想显示这个属性值，也就是说象Text属性一样仍可读出其值：
var
Ob:Tdxfcobject;
str,str1:string;
begin
Ob:=chart.SelectedObject;
if Ob<>nil then
begin
str:=Ob.text;
str1:=Ob.MyProperty;
end;
end;
可结果str='你在他乡还好吗' 而str1=null，不能正常读取。
为什么呢？如何在退出时正常保存其MyProperty属性值呢？