求五角星的窗体（在线等）

Question

先答对者有分！

Answer 1

刚好手头有一个。
procedure TForm1.FormCreate(Sender: TObject);
var hr:Hrgn;
begin
    linepoints[0]:=point(203,22);
    linepoints[1]:=point(157,168);
    linepoints[2]:=point(3,168);
    linepoints[3]:=point(128,257);
    linepoints[4]:=point(81,402);
    linepoints[5]:=point(203,334);
    linepoints[6]:=point(325,422);
    linepoints[7]:=point(278,257);
    linepoints[8]:=point(402,168);
    linepoints[9]:=point(249,168);
    linepoints[10]:=point(203,22);
    Form1.Color:=clred;
    hr:=CreatePolygonRgn(linepoints,High(linepoints),Alternate);
    SetWindowRgn(handle,hr,true);
end;
其中linepoints:array[0..10] of Tpoint;