Fenster-Design

[shmia]

Tja, die Reihenfolge der Parameter ist falsch
Zuerst das Hres, dann erst die beiden Source Regionen.

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(HRes, HR, HR2, RGN_AND)) <> RGN_ERROR then SetWindowRgn(Handle, HRes, True); 
//Schnittfläche des Kreises mit der Ellipse auswählen und als Fenster setzen 
  DeleteObject(HRes);
  DeleteObject(HR2);
  DeleteObject(HR);
end;