怎么绘制多边形 例如4边形或5边形

如何绘制多边形 例如4边形或5边形
如何绘制多边形   例如4边形或5边形

------解决方案--------------------
画多边形用 Canvas.Polygon ，正多边形需要自己计算出各个点的坐标
------解决方案--------------------
我写了个例子 给你我的代码

-----------------------------------------------

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

const
{An array of points for the star region}
RgnPoints:array[1..10] of TPoint=
((x:203;y:22),(x:157;y:168),(x:3;y:168),(x:128;y:257),
(x:81;y:402),(x:203;y:334),(x:325;y:422),(x:278;y:257),
(x:402;y:168),(x:249;y:168));//确定顶点
LinePoints:array[1..11] of Tpoint=
((x:199;y:0),(x:154;y:146),(x:2;y:146),(x:127;y:235),
(x:79;y:377),(x:198;y:308),(x:320;Y:396),(x:272;y:234),
(x:396;y:146),(x:244;y:146),(x:199;Y:0));

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
nmm_Rgn:HRGN;
begin
//Setwindowpos(Form1.Handle,HWND_TOPMOST,Form1.Left,form1.Top,Form1.Width,Form1.Height,0);
nmm_Rgn := CreatepolygonRgn(Rgnpoints,High(RgnPoints),ALTERNATE);
SetWindowRgn(Handle,nmm_Rgn,True);
Form1.color := clRed;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.pen.width:=1;
Canvas.Polyline(linePoints);
end;

end.