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;