Fórum form diferente #223041
29/03/2004
0
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
Curtir tópico
+ 0
Responder
Posts
29/03/2004
Marcio.theis
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;
Responder
Gostei + 0
29/03/2004
Thomaz_prg
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)