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;