Montando um Formulário Redondo

Nesse artigo vamos descontrair um pouco e brincar no Delphi. Vamos criar um formulário redondo, bem interessante.

Por | @jonathanlamimkt Programação
No Delphi não existem apenas formulários quadrados ou retangulares, é possível fazer formulários arredondados.

Inicie um novo aplicativo e coloque o evento OnCreate do form o código abaixo:

var Hd : THandle;
begin
Hd := CreateEllipticRgn(0,0,400,400);
SetWindowRgn(Handle,Hd,True);
end;


Entendendo o Código



CreateEllipticRgn(0,0,400,400) : Função que cria a região da elipse, sendo sua sintaxe a seguinte:

CreateEllipticRgn(ponto_inicial_horizontal,ponto_inicial_vertical,largura,altura)


SetWindowRgn(Handle,Hd,True) : aponta a forma que deverá ser criada, no caso uma elipse.

Seja criativo, altere os valores da função CreateEllipitcRgn(), e veja os resultados.

Mais sobre: delphi formulario redondo formulario
Share Tweet
Recomendado
Comentários
Carregar comentários
Destaquesver tudo