Creating non rectangular windows (D2/D3)

To create a non rectangular window, you must create a Windows Region and use the API function SetWindowRgn, like this (this works only in D2/D3):

var

  hR : THandle;

begin

  {creates an Elliptic Region}

  hR := CreateEllipticRgn(0,0,100,200);

  SetWindowRgn(Handle,hR,True);

end;