Dicas - Formulários não retangulares

Veja esta dica, para deixar os formulários com uma "cara" diferente.

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;

Artigos relacionados