Author: Tomas Rutkauskas

How to create an elliptic form using regions

Answer:

Add something like the following to your form's OnCreate event handler:

1   procedure TForm1.FormCreate(Sender: TObject);
2   var
3     Region: HRGN;
4   begin
5     Region := CreateEllipticRgn(0, 0, 300, 300);
6     SetWindowRgn(Handle, Region, True);
7   end;