如何在DELPHI7中实现CAD那样的画线？？

Question

不用第三方控件，哪位给小弟一个思路？？给一个有源码的类也可以啊
要求：
 比如画折线:取几个坐标点后，画出折线。但想要像CAD那样，可以调节各折点的位置,来修改各折点的坐标.以重新画线。并且，要求画出的折线实体能响应事件(key,mouse EVENT).--------------------------
我的想法：是不是这个折线实体是一个窗体对象？？ 画图后再根据图形给个折线的REGION呢？？
=================================
多谢了望各路大虾不吝赐教

Answer 1

LYSoft主页提供Demo,含源码,为本人读书年代的作业
现在公开之~

Answer 2

if you want to get this tool just send me an email. note: [email protected] 

Answer 3

用Canvas
举个例子
Form1.Canvas.LineTo(x,y)

Answer 4

用vector记录每一个节点的坐标.1、设计一个boolean temp := false;
2、假设一个点是(X1,Y1)，当鼠标移动的时候，判断鼠标位置，如果(abs(X-X1)<=5) and (abs(Y-Y1)<=5)，那么说明鼠标在(X1,Y1)点的修改点范围之内，temp := true；
3、当temp = true的时候，说明(X1,Y1)可修改，将鼠标当前位置修改(X1,Y1)，然后将vector里所有节点访问一下，重新绘制折线。