摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;const Penwidth = 1;//画笔的粗细 Len = 20;//箭头线的长度 {说明：这两个常量应该一起变化，具体值由效果来定。 当Penwidth很小时，显示的效果不是太好}type TForm1 = class(TForm) procedure For... 阅读全文