帮帮我,VB中的Line在Delphi中怎么实现?(高分求助)(200分)

在VB中有个控件叫Line,
有两个点确定,
就是可以化两个点间的连线,
背景透明,
拖动时不闪烁,
只有点击线本身才是OnClick.
我觉得VB的那个控件非常的好,
但是在Delphi中却没有,
我用Tshape,Timage,TGraphicControl继承的东东作都出不了这个效果,
总是很闪烁.
难道Delphi做不出来.
快救救我吧.
怎样做?
救救我吧.
不够在加分.

这样的控件应该是 TWinControl 的后代，因为需要设置 Region 。
看看这里：<a href="DispQ.asp?LID=99091" title="来自：yysun">huizhang最新更新TLine, 运行时只要鼠标一击, 连"拖"带"拉"</a>

huizhang 的是 TGraphicControl 的后代，所以不能覆盖在按钮等别的控件上。

我现在已经解决了这个问题了,
huizhang的控件我看过了,
确实不能解决闪烁和覆盖等问题,
所以我用TWinControl派生了一个TLine
然后用Region
作的,但是我现在遇见鬼了,大家看看我划线的region就知道了,
我也不知道是怎么回事但是确确实实可以划线
我的region如下:
pointarr[1].x := 0;
pointarr[1].y := 0;
pointarr[2].x := 0;
pointarr[2].y := 99;
pointarr[3].x := 100;
pointarr[3].y := 100;
pointarr[4].x := 100;
pointarr[4].y := 1;
pointarr[5].x := 0;
pointarr[5].y := 0;
这明明是一个近似矩形的平行四边形的region么,
但是画出来却是一条直线.
我faint!

多人接受答案了。

看一下
http://www.truevcl.com