Formulários com formatos personalizados

[lucas98 1]

Nesse artigo irei ensinar como construir um Form com outros formatos além do padrão retangular. Geralmente os Form’s com formatos personalizados são usados em Splash’s (Telas de abertura) dos programas.

 

Primeiramente vamos iniciar uma nova aplicação.

 

Nesse primeiro exemplo estaremos criando um formulário em forma de triângulo.

 

Antes de começarmos a programação vamos analisar como é o triângulo. Ele é formado por três pontos. Então primeiramente devemos definir onde vão ser esses três pontos em que o Form será desenhado.

 

 

Como você pode ver na imagem acima foram definidas as coordenadas dentro do Form.

 

Para construirmos ele com esse formato, vamos realizar a programação no evento OnCreate do Form.

 

view sourceprint?

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Agora que vimos como funciona vamos criar um formulário com cinco pontos como o da imagem abaixo:

 

 

Para construirmos ele com esse formato, vamos realizar a programação no evento OnCreate do Form.

 

view sourceprint?

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Como você pode observar o código e muito parecido com o exemplo 1, a única diferença é que foram usados mais pontos.

 

Em grande parte das vezes à atividade de ficar definindo pontos se tornará muito chata e demorada. Então podemos usar um software para fazer isso para nós, o software chama-se GabesOddForm e pode ser baixado nos site

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Utilizando o GabesOddForm

 

Ao abri-lo, é exibida uma imagem. Essa imagem será o formato do seu form.

 

 

Para definirmos o formato do nosso Form, devemos fazer um desenho em formato BMP. Usando o MSPaint faça um desenho similar ao abaixo e salve-o como o nome de Molde.

 

 

Voltando ao GabesOddForm, use o menu File / Open Picture e abra seu arquivo molde. Em seguida ele será carregado. Agora vamos gerar todas as coordenadas para esse desenho. Para isso utilize o botão Scan de Current Bitmap.

 

 

Pronto! Acabamos de gerar uma unit com todas as coordenadas, clique sobre o botão Preview para visualizar a unit.

 

 

A unit será aberta no Bloco de notas, salve-a com o nome de UGabesOddForm.pas.

 

Inicie uma nova aplicação de Delphi. Importe a Unit UGabesOddForm.pas usando o menu Project Add to Project.

 

No evento OnCreate do form faça o seguinte código:

 

view sourceprint?

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Onde:

 

CreateOddWindow: função que desenha o Form;

Form1.Handle: form que sera desenhado;

False: parâmetro para que barra de título não seja exibida;

 

Não esqueça de adicionar aos Uses a unit UGabesOddForm.

 

Creditos: Paneta Delphi

 

obs: aqui funfo se ai nao der pff poste aqui que eu ou outros membro (programadores e pessoas que sabem) resolveram seu problemas até mais

[l2lipe 0]

nossa mano muito bom topico nunca tinha visto um tuto sobre isso xp

abraços

[DragonBoss 8]

mto rox mesmo... nem testei, mas provavelmente vai dar certo ;X

 

vlw ae por trazer ao WC..

 

flw, abraçs