Formato De Janela

[Guest Dansoler]

Olá gostaria de saber como faço para mudar o formato de um form. exemplo tem programas que usam a janela com formatos de figuras.

Não sei como fazer tal coisa, gostaria de ajudas... Obrigado

[Darlan]

Neste modelo que você quer como figuras eu nunca vi, e não sei se tem como fazr, oque pode ser feito é você abrir um form na forma de um triangulo, ou de uma elipse, isso tem como fazer, e é relativamente fácil...

Darlan

[Mauro Jr]

Interessante.

Como se faz isso?

Mauro Junior

[sem ideia p/ nick]

tambem fiquei interessado como faz?

[Darlan]

para cliar na forma de elipse:

no evento formcreate do formulário....

procedure Tfrmtela.FormCreate(Sender: TObject);

var Hd : THandle;

begin

Hd := CreateEllipticRgn(35,40,600,600);

SetWindowRgn(Handle,Hd,True);

scaled := true;

end;

assim ele irá criar o formulário na forma de uma elipse, se quiser mudar a foma dela é só alterar os valores desta linha Hd := CreateEllipticRgn(35,40,600,600);

Darlan

[Darlan]

e para criar um triangulo, no mesmo evento

procedure Tfrmtela.FormCreate(Sender: TObject);

var

pontos: array [1..4] of TPoint;

begin

pontos[1].x := 220;

pontos[1].y := 30;

pontos[2].x := 30;

pontos[2].y := 220;

pontos[3].x := 410;

pontos[3].y := 220;

hd := CreatePolygonRgn(pontos,3,1);

SetWindowRgn(Handle,Hd,True);

scaled := true;

end;

Darlan....

para mudar o tamanho alterar os valores do array....

se quiser criar um octeto por exemplo, aumenta o array para 8, e passa 8 para a função, e cria os outros 5 pontos...

simples e objetivo....

Falow

[sem ideia p/ nick]

valeu mesmo hein, isso ajudou bastante...muito obrigado