delphi 窗体上画任意方向带箭头的直线全套源码，程序启动后在主窗体直接用鼠标左键拖动可画出任意方向的带箭头的直线。