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