Как создать форму в форме эллипса?

Материал из DRKB

Как создать форму в форме элипса?[править | править код]

procedure TForm1.FormCreate(Sender: TObject);
var
  Region: HRGN;
begin
  Region := CreateEllipticRgn(0, 0, 300, 300);
  SetWindowRgn(Handle, Region, True);
end;


Source: Взято с Delphi Knowledge Base: http://www.baltsoft.com/
ID: 00469