[BCB] Jak stworzyć formularz w kształcie elipsy ?

Aby stworzyć formę w kształcie elipsy użyjemy funkcji CreateEllipticRg(). Następnie procedurą SetWindowRgn() ustawimy otrzymany uchwyt do obszaru o kształcie elipsy.

 void __fastcall TForm1::FormCreate(TObject *Sender)

{

     HRGN MyRgn;

     MyRgn = CreateEllipticRgn(0, 0, ClientRect.Right, ClientRect.Bottom);

     SetWindowRgn(Handle, MyRgn, true); 

}

void __fastcall TForm1::FormCreate(TObject *Sender)

{

HRGN MyRgn;

MyRgn = CreateEllipticRgn(0, 0, ClientRect.Right, ClientRect.Bottom);

SetWindowRgn(Handle, MyRgn, true);

}

Autor: Drazek