如何在透明image上画多条直线并移动？

如何在透明image上画多条直线并移动？ Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_20061030090033189.html
如题，两个image，上面的image透明，如何在这个image上画多条直线？用fillrect    
  brush.style   :=   bsclear   上次画的直线就被清空了，不用又不能保证透明。  
   
  补充：其实我要做一个图像处理的软件，需要画线等功能。  
   
  要求在对原始图像进行处理时，其上人为标注的各种信息如直线、文字等不变化。  
   
  另外，有没有满足以上要求并且可以使标注信息自由移动的类似控件？

强烈要求分离Image跟前景的线条或者文字。你可以维护一个内部的Bitmap缓冲，然后在FormPaint之类的事件中把图片和文字分别绘制到窗口上。不要考虑重叠的Image。效率太低，而且不灵活。  
   
  此外，对于需要可以自由移动的文字，如果要求不高的话，直接动态创建TLabel好了。线条什么的就用Shape。  
   
  如果你的窗口闪烁的厉害，可以把Form（或者你绘图的母体）的DoubleBuffered打开。

转载于:https://www.cnblogs.com/delphi2007/archive/2008/11/05/1326896.html