Home » Tipps & Tricks » Komponenten » TForm » Polygonförmige Formulare

Polygonförmige Formulare

Polygonförmige Fenster können praktisch jedes Aussehen annehmen! So macht man eien Stern aus seinem Fenster:

const
  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)); 

So damit diese Punkte auch benutzt werden, rufen wir sie in der Create Prozedure auf …

procedure TForm1.FormCreate(Sender: TObject);
var
  Rgn : HRGN;
begin
  Rgn := CreatePolygonRgn(RgnPoints, High(RgnPoints), ALTERNATE);
  SetWindowRgn(Handle, Rgn, True);
end;