Как создать форму в форме элипса?
procedure
TForm1.FormCreate(Sender: TObject);
var
Region: HRGN;
begin
Region := CreateEllipticRgn(
0
,
0
,
300
,
300
);
SetWindowRgn(Handle, Region, True);
end
;
Взято с
Delphi Knowledge Base
офисные перегородки торговые павильоны