Create an elliptic window

Create an elliptic window

Var
  h: THandle;
begin
  h := CreateEllipticRgn(40, 40, 300, 200);
  SetWindowRgn(Handle,h,TRUE);
           

...