绘图问题

Question

请指教画箭头的方法。我需要做一个类似VISIO的编辑流程图的工具，需要采用拖拽的方式随便的动态生成箭头（根据鼠标的拖动时的起始坐标）。希望可以画出比较精美点的图形。

Answer 1

好玩，我的想法：
  bBegin : boolean;
  bx,by,ex,ey: integer;OnMouseDown:
    
  bBegin := not bBegin;
  if bBegin then
  begin
    bx := x;
    by := y;
    ex := x;
    ey := y;
  end;OnMouseMove:
  if bBegin then
  begin
    调整笔的颜色至底色;
    MoveTo(bx,by);
    栅格形式LineTo(ex,ey);
    调整笔的颜色为黑色：
    MoveTo(bx,by);
    栅格形式LineTo(x,y);
    ex := x;
    ey := y;
  end;
  

Answer 2

yashenJXF，感谢指点，不过我不太明白你所指的“栅格形式LineTo(x,y)”是什么意思，能否说得详细点呢？不胜感激！