Criando Formulários não retangulares

 

Para deixar os formulários de seus projetos com uma cara diferente, você deve criar uma região do Windows e usar a função da API SetWindowRgn. Veja o código:

 

var

  hR : THandle;

begin

  {cria uma Região elíptica}

  hR := CreateEllipticRgn(0,0,100,200);

  SetWindowRgn(Handle,hR,True);

end;