form diferente
galera como faço para fazer um form diferente, ou seja, não mais quadrado ou retangulo. pode ser qualquer outro formato.
valeu
valeu
Speedrob
Curtidas 0
Respostas
Marcio.theis
29/03/2004
var
hR : THandle;
begin
{cria uma Região elíptica}
hR := CreateEllipticRgn(0,0,100,200);
SetWindowRgn(Handle,hR,True);
end;
hR : THandle;
begin
{cria uma Região elíptica}
hR := CreateEllipticRgn(0,0,100,200);
SetWindowRgn(Handle,hR,True);
end;
GOSTEI 0
Thomaz_prg
29/03/2004
O exemplo do nosso colega (´/]/]@t´), cria um form com forma de elipse, vc pode criar também um form com as pontas arredondadas.
var
hR : THandle;
begin
{cria uma Região elíptica}
hR := CreateRoundRgn(0,0,100,200);
SetWindowRgn(Handle,hR,True);
end;
var
hR : THandle;
begin
{cria uma Região elíptica}
hR := CreateRoundRgn(0,0,100,200);
SetWindowRgn(Handle,hR,True);
end;
GOSTEI 0