In Reply to: Forms posted by Hatemben on May 14, 2000 at 19:38:53:
This should do the trick :
procedure TForm1.FormCreate(Sender: TObject); var Region : hRgn; begin Region := CreateEllipticRgn(0, 0, Width , Height); SetWindowRgn(Handle, Region, True); end;