Polygonförmige Formulare |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;
Ähnliche Seiten: