怎样在屏幕上画线?怎样擦除

怎样在屏幕上画线?怎样擦除 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_20061027221046192.html
怎么在屏幕上画线,并且怎样擦除?  
  是在屏幕上,不是在程序窗口里面画,是在屏幕最前画

DC   :   HDC;  
      DC   :=   GetDC(0);  
      LineTo(DC,X,Y);

划一条与背景色相同的线  
   
  或者  
   
  Canvas.Pen.Mode   :=   pmNotXor再划一条同样颜色的线

在Forms上、用蓝颜色、从P1(x1,y1)到P2(x2,y2)的直线的画法:  
  begin  
      canvas.pen.color:=clBlue;  
      Canvas.MoveTo(x1,y1);  
      Canvas.LineTo(x2,y2);  
  end;  
   
   
  如果要在在Form1的Image1组件上、用红颜色、从P1(x1,y1)到P2(x2,y2)的直线的画法:  
  begin  
      Image1.canvas.pen.color:=clred;  
      Image1.Canvas.MoveTo(x1,y1);  
      Image1.Canvas.LineTo(x2,y2);  
  end;  
   
  以上三个语句中重复出现的Image1.Canvas可以用With语句简化为：  
   
  begin  
  　with   image1.canvas   do  
      　   begin  
          　　   Pen.Color:=clRed;  
            　　MoveTo(x1,y1);  
            　　LineTo(x2,y2);  
        　end;  
  end;  
   
   
 

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