procedure TForm1.Button1Click(Sender: TObject); var R: TRect; begin case RadioGroup1.ItemIndex of 0: //绘制椭圆 参数同矩形 begin Button2Click(Sender); with Image1 do begin Canvas.Pen.Width := 1; Canvas.Pen.Color := clBlue; Canvas.Brush.Color := clGreen; Canvas.Ellipse(10, 10, 80, 100); end; end; 1: //绘制扇形 begin with Image2 do begin Button2Click(Sender); Canvas.Pen.Width := 1; Canvas.Pen.Color := clBlue; Canvas.Brush.Color := clGreen; Canvas.Pie(10, 10, 100, 100, 10, 10, //扇形起点 100, 20); //扇形终点 end; end; 2: //绘制弦 begin Button2Click(Sender); with Image3 do begin Canvas.Pen.Width := 1; Canvas.Pen.Color := clBlue; Canvas.Brush.Color := clGreen; Canvas.Chord(10, 10, 100, 100, 10, 10, //弦起点 100, 20); //弦终点 end; end; 3: //绘制弧线 begin Button2Click(Sender); with Image4 do begin Canvas.Pen.Width := 4; Canvas.Pen.Color := clBlue; Canvas.Brush.Color := clGreen; Canvas.Chord(10, 10, 100, 100, 10, 10, //弧线起点 100, 100); //弧线终点 end; end; end; end; procedure TForm1.Button2Click(Sender: TObject); begin // form1.Refresh; end;