procedure TForm1.Button1Click(Sender: TObject); var R: TRect; begin case RadioGroup1.ItemIndex of 0: //绘制矩形要给出两个对角坐标值 begin Button2Click(Sender); with Image1 do begin Canvas.Pen.Width := 5; Canvas.Pen.Color := clBlue; Canvas.Brush.Color := clGreen; Canvas.Rectangle(10, 10, 100, 100); end; end; 1: //圆角矩形 begin Button2Click(Sender); with Image2 do begin Canvas.Pen.Width := 2; Canvas.Pen.Color := clBlue; Canvas.Brush.Color := clGreen; Canvas.RoundRect(10, 10, 100, 100, 10, 10); end; end; 2: //焦点矩形 begin Button2Click(Sender); with Image3 do begin Canvas.Pen.Width := 2; Canvas.Pen.Color := clBlue; Canvas.Brush.Color := clGreen; R := Rect(10, 10, 100, 100); Canvas.DrawFocusRect(R); end; end; 3: //矩形描边 begin Button2Click(Sender); with Image4 do begin Canvas.Pen.Width := 2; Canvas.Pen.Color := clBlue; Canvas.Brush.Color := clGreen; R := Rect(10, 10, 100, 100); Canvas.FrameRect(R); end; end; end; end; procedure TForm1.Button2Click(Sender: TObject); begin Form1.Refresh; end;