Manipulando formulários

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Criando formulários transparentes e com outras formas geométricas, com Bruno Lichot.

Criando formulários transparentes e com outras formas geométricas

 

Esta semana vamos falar um pouco de recursos visuais do Delphi. A idéia do artigo surgiu em uma de minhas aulas durante a semana.

Neste artigo vamos aprender como criar formulários transparentes e com outras formas geométricas. Continuem mandando suas sugestões, se vc possui alguma informação técnica importante que gostaria de compartilhar com toda a comunidade de desenvolvedores Delphi, sinta-se a vontade de fazê-lo aqui. É sempre um prazer colaborar com o crescimento de todos. Compartilhando para conquistar!

Criando Formulários Transparentes

Crie uma nova aplicação no Delphi, adicione um label com o seguinte caption: Exemplo de formulário transparente. adicione um botão e coloque no seu caption: Sair.

 

No evento OnClick do botão digite close. Selecione o formulário e procure pela propriedade TransparentColor, esta propriedade é do tipo boleana e habilita ou não a possibilidade de transformar uam das cores do formulário como transparente. A cor que se tornará transparente é definida na propriedade TransparentColorValue. Modifique o valor desta propriedade para clSkyBlue, e faça o mesmo com a propriedade Color do formulário. em seguida altere a propriedade BorderStyle do formulário para bsNone, esta opção removerá as bordas do form. Execute a aplicação e veja o que acontece.

 

Criando Formulários com Outras Formas Geométricas

Adicione a este formulário um objeto Shape da palheta Additional, clique com o botão direito sobre ele, opção Control, Send to Back. Altere a sua propriedade Shape para stCircle, altere a subpropriedade Width da propriedade Pen para 3, e na propriedade Brush, na subpropriedade Color defina clRed.

 

Execute a aplicação e confira o resultado:

 

Façamos um "buraco" no formulário agora: altere a propriedade Shape do objeto Shape para StRoundRect, altera a propriedade Width da subpropriedade Pen para 0, e a subpropriedade Color da propriedade Brush para clBlue. Selecione o formulário altere a propriedade TransparentColorValue para clBlue e a propriedade BorderStyle para bsSizeable, altere a cor da fonte do label para clRed.

 

Execute a aplicação e confira o resultado:

 

É isso aí galera, até semana que vem e um forte abraço a todos.

 

 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?