Este é um post disponível para assinantes MVPou para quem possui Créditos DevMedia. Clique aqui para saber mais!
Artigo Clube Delphi 54 - Segredos da VCL
Artigo da Revista Clube Delphi Edição 54

![]()
Segredos da VCL
Dicas sobre o MainMenu, ToolBar e StatusBar
Há mais de ano apresento artigos na ClubeDelphi sobre componentes (e ferramentas) que facilitem a vida do programador ou que adicionem nas aplicações uma interface mais incrementada. Muitas vezes, no entanto, não precisamos utilizar componentes de terceiros para melhorar um pouco o visual das nossas aplicações, já que muitos recursos são facilmente conseguidos conhecendo-se alguns “segredinhos” e dicas dos próprios componentes da VCL, como veremos neste artigo.
Muitas empresas não utilizam componentes de terceiros, por temerem a falta de compatibilidade com futuras versões do Delphi ou dependerem de atualizações fornecidas pelos fabricantes. As dicas mostradas a seguir valem para a maioria das versões do Delphi, e você poderá facilmente adaptar as técnicas em suas aplicações.
Menus com estilo e “banners”
Sem dúvida, um dos componentes mais utilizados em aplicações é o MainMenu. Para melhorar sua aparência podemos, por exemplo, adicionar imagens a cada item do menu, através da propriedade Bitmap ou ligando o MainMenu a um ImageList, dando um ImageIndex para cada item.
Começando nosso primeiro exemplo, em uma nova aplicação, coloque um MainMenu no formulário e dê um duplo clique para abrir seu editor (chamado Menu Designer). Clique com o botão direito no editor, escolha a opção Insert From Template e escolha a opção File Menu, o que cria automaticamente uma estrutura completa de um menu File (existem outros, como Edit, Help, Window etc.). Adicione imagens de sua preferência para cada item, usando um ImageList (paleta Win32).
Veremos agora como agrupar itens de menu, para que somente um item de cada vez fique “marcado” quando for clicado (semelhante a um “RadioGroup”). Para isso, selecione os quatro primeiros itens do menu e altere as propriedades AutoCheck e RadioItem para True, e em GroupIndex digite “1”. Defina a propriedade Checked do primeiro item como True. Rode e teste o exemplo. Clique nos itens utilizados para observar o efeito.
Vamos agora colocar um “banner” no menu. Adicione no formulário um componente Image (da paleta "
Este é um post disponível para assinantes MVPou para quem possui Créditos DevMedia. Clique aqui para saber mais!
Luciano Pimenta (english)
Luciano Pimenta (lucianopimenta@clubedelphi.net) is Technician in data processing. Develop aplications client/server using Firebird/InterBase.



