本帖最后由 zshsuming 于 2011-02-21 10:54:52 编辑

解决方案 »

  1.   

    http://www.cnblogs.com/keyvip/archive/2010/10/10/1847283.html
    [code=Delphi(Pascal])//线帽 
    var
      g: TGPGraphics; 
      p: TGPPen; 
    begin
      g := TGPGraphics.Create(Canvas.Handle); 
      p:= TGPPen.Create(aclBlue, 5); 
      
      p.SetStartCap(LineCapArrowAnchor); {起点线帽,这里是箭头状锚头帽}
      p.SetEndCap(LineCapRoundAnchor);   {终点线帽,这里是圆形锚头帽}
      g.DrawLine(p, 20, 20, 220, 100); 
      
      p.Free; 
      g.Free; 
    end;[/code]
      

  2.   

    你好,谢谢你的回复。画箭头是很容易的,画好箭头之后要保存在路径里面,保证下次REPAINT的时候不会消失,但是路径只能保存线,无法保存线帽,这个是主要问题。请多多指教
      

  3.   

    那你就保存路径REPAINT的时候画一个箭头呗
      

  4.   

    你好,我把FromPaint里面换成
    p.SetEndCap(LineCapArrowAnchor);
    g.DrawPath(p, path);
    还是没有效果,出来的还是一条直线,没有线帽
    请问你有什么好方法吗?