Sternförmiges Formular

[Kinimod8]

Hallo,

um ein Formular sternformig aussehen zu lassen muss man erstmal Punkte definieren:

Delphi-Quellcode:

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

Um diese Punkte zu Benutzen muss der Code in das OnCreate-Ereignes des Forms.

Delphi-Quellcode:

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