正文

　　　　绘图函数PolyGon，RoundRect，Ellipse。

　　PolyGon函数原型

procedure TCanvas.Polygon(const Points: array of TPoint);

功能：绘制多边形

参数：点的位置

　　RoundRect函数原型

功能：圆角矩形

procedure TCanvas.RoundRect(X1, Y1, X2, Y2, X3, Y3: Integer);

x1，y1矩形起始坐标

x2，y2矩形的终点坐标

y3 圆角的大小

　　Ellipse函数原型

功能：椭圆

procedure TCanvas.Ellipse(X1, Y1, X2, Y2: Integer);

x1，y1椭圆的左上角x坐标和y坐标

x2，y2椭圆的右下角x坐标和y坐标

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); ; var Form1: TForm1; TForm1.Button1Click(Sender: TObject); begin Canvas.Pen.Color:=clBlue; //多边形 Canvas.PolyGon([Point(10,10),Point(30,10), Point(120,30),Point(230,120)]); //圆角矩形 Canvas.RoundRect(200,200,300,250,20,20); //圆形 Canvas.Ellipse(50,50,100,100); end; end.