procedure TForm4.Button7Click(Sender: TObject);var  pwith: Integer; //画笔的宽度  hx1, hy1: Integer; //横线第一个点  hx2, hy2: Integer; //横线的终点  sx1, sy1: Integer; //竖线第一个点  sx2, sy2: Integer; //竖线终点  r: Integer; //圆的半径  yleft: Integer;// 圆左侧的left  ytop: Integer; // 圆顶部的top  g: TGPGraphics;  p: TGPPen;begin  pwith := 10;  g := TGPGraphics.Create(Canvas.Handle);  p := TGPPen.Create(aclBlueViolet, pwith);  hx1 := 100;  hy1 := 100;  hx2 := 400;  hy2 := 100;  sx1 := 430;  sy1 := 130;  sx2 := 430;  sy2 := 500;  //x轴上的距离就是半径.  r := sx2 - hx2;  g.DrawLine(p, hx1, hy1, hx2, hy2);  g.DrawLine(p, sx1, sy1, sx2, sy2);  g.DrawArc(p, hx2 - r, hy1, r*2, r*2, 270,  90);  //g.DrawArc(p, 370, 100 -1, 60,60, 270 - 10,  90+10+2); 这样可以看似完美  p.Free;  g.Free;end;procedure TForm4.Button8Click(Sender: TObject);var  g: TGPGraphics;  p: TGPPen;begin  g := TGPGraphics.Create(Canvas.Handle);  p := TGPPen.Create(aclBlueViolet, 20);  //第一个参数是圆最左侧，左边距即left，第二个参数是圆的最上坐标即top，  //第三个参数 是圆的横向直径，第四个参数是圆的纵向直径，如果横向与纵向不一致的话  //画出来就是椭圆。第五个参数是画弧的起始度数，是顺时针的，第6个参数是画多少度，即扩展度数。  g.DrawArc(p, Button8.Left, Button8.Top + Button8.Height, Button8.Width,Button8.Width, 0, 360);  p.Free;  g.Free;end;