高分求一继承TShape类的控件！

Question

要求该类能根据中心点坐标画三角形、涂色、填充文字，同时要求对象能拖动（dmManual即可，即OnMouseDown事件），。。 
我是一个新手，对delphi的类的认识很浅，照网上教的写了半天也没通过编译，唉。。

Answer 1

补充一下，一定要继承TShape的类啊。 因为前面我用TShape画的圆，希望能和三角形一起作为TShape对象进行操作。
不用控件了 只要类就好！

Answer 2

先帮着楼主顶一下
不过相关代码可以在www.2ccc.com能够找得倒

Answer 3

从TGraphicControl继承会好一点，从TShape继承有几个Private对象用不了。只需要重写paint方法，画个三角形。