Fenster-Design

[64Jabor]

So jetzt habe ich es so versucht:

Delphi-Quellcode:

procedure TJP.StartInit(Sender: TObject);
var HR, HR2, HRes: HRgn;
begin
 HR := CreateEllipticRgn (6, 17, clientwidth, clientheight); //Ellipse zeichnen
 HR2 := CreateEllipticRgn (0, 0, clientwidth, clientheight); //Kreis zeichnen
 if (CombineRgn(HR, HR2, HRes, RGN_AND)) <> RGN_ERROR then SetWindowRgn(Handle, HRes, True);
 //Schnittfläche des Kreises mit der Ellipse auswählen und als Fenster setzen
end;

Leider funktioniert es nicht, aber mein Fenster ist wieder ganz normal rechteckig!
Es gab auch keinen RGN_ERROR, das habe ich via "else"-Abschnitt überprüft...

Woran kann das denn nun liegen?

mfg 64Jabor