Sternförmiges Formular

[himitsu]

z.B.: (allerdings mußt du selber für eine Prozedur zur Größenänderung sorgen, da ja der Rahmen zum ändern fehlt)

Delphi-Quellcode:

Procedure TForm1.FormCreate(Sender: TObject);
  Begin
    FormResize(Sender);
  End;

Procedure TForm1.FormResize(Sender: TObject);
  Var RgnPoints: Array[1..3] of TPoint;
    Rgn: HRGN;

  Begin
    RgnPoints[1] := Point(10, 10);
    RgnPoints[2] := Point(10, Height);
    RgnPoints[3] := Point(Width, 10);
    Rgn := CreatePolygonRgn(RgnPoints, High(RgnPoints), ALTERNATE);
    SetWindowRgn(Handle, Rgn, True);
  End;

oder

Delphi-Quellcode:

Procedure ausschneiden(X, Y: Integer);
  Var RgnPoints: Array[1..3] of TPoint;
    Rgn: HRGN;

  Begin
    RgnPoints[1] := Point(10, 10);
    RgnPoints[2] := Point(10, X);
    RgnPoints[3] := Point(Y, 10);
    Rgn := CreatePolygonRgn(RgnPoints, High(RgnPoints), ALTERNATE);
    SetWindowRgn(Form1.Handle, Rgn, True);
  End;

Procedure TForm1.FormCreate(Sender: TObject);
  Begin
    ausschneiden(100, 200);
  End;

Procedure TForm1.irgendwas {zum ändern}
  Begin
    ...
    ausschneiden(300, 400);
    ...
  End;

In der Demo findest du noch ein paar Methoden, um andere Formen zu erstellen und diese auch zu kombinieren.