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

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

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

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...