Jak stworzyć formularz o kształcie elipsy ?
var
Obszar : HRGN;
begin
Obszar := CreateEllipticRgn(0, 0, ClientRect.Right, ClientRect.Bottom);
SetWindowRgn(Handle, Obszar, true);
Obszar : HRGN;
begin
Obszar := CreateEllipticRgn(0, 0, ClientRect.Right, ClientRect.Bottom);
SetWindowRgn(Handle, Obszar, true);
Materiał dodany przez użytkownika: alphan
