Manipulando formulários
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.
