Você acha que o menu fornecido pelo Delphi é realmente pouco atraente de usar? Você pode usar o próprio controle VCL do Delphi para implementar um menu estilo IE! Os recursos incluem: botões flutuantes, posicionamento de arrastar, gráficos... tudo isso não requer controles de terceiros ou muita programação!
A implementação de um menu estilo IE requer as seguintes etapas:
1. Defina um menu normal da maneira normal;
2. Oculte o menu definido da janela;
3. Adicione CoolBar e ToolBar à janela como barra de menu;
4. Mapeie o menu para o botão ToolBar;
5. Programa de efeitos especiais (opcional).
O primeiro passo é definir um menu normal da maneira normal.
Adicione um controle TMainMenu à janela e defina itens de menu, ícones, teclas de atalho, etc. da maneira usual.
A segunda etapa é ocultar o menu definido da janela.
O menu definido será exibido automaticamente na janela. Isso ocorre porque quando um controle TMainMenu é adicionado à janela, a propriedade Menu do objeto TForm é automaticamente definida para o objeto TMainMenu adicionado. Para poder utilizar o nosso próprio menu definido, este menu deve estar oculto. Limpe TForm.Menu e o menu definido não será exibido automaticamente.
A terceira etapa é adicionar CoolBar e ToolBar à janela como barra de menu.
Adicione um controle TCoolBar à janela e coloque um controle TToolBar dentro dela. Defina a propriedade AutoSize de TCoolBar e TToolBar como True, defina a propriedade Flat de TToolBar como True e defina a propriedade ShowCaptions de TToolBar como True. Desta forma, uma barra de menu em branco aparece acima da janela. A seguir adicionaremos itens de menu a esta barra de menu.
A quarta etapa é mapear o menu para o botão ToolBar.
Clique com o botão direito em TToolBar e selecione Novo botão no menu pop-up para adicionar o primeiro botão à barra de menu. Defina a propriedade AutoSize e a propriedade Grouped deste botão como True e altere a propriedade Caption para o texto do item de menu. Por exemplo, a propriedade Caption pode ser definida como &Arquivo. Finalmente, defina a propriedade MenuItem deste botão para o item de menu correspondente definido em TMainMenu. Por exemplo, a propriedade MenuItem pode ser definida como mnuFile. Após essas configurações, o botão será vinculado ao item de menu, e o menu correspondente aparecerá quando o botão for clicado.
O quinto passo é programar efeitos especiais (opcional).
Após as quatro etapas anteriores, o novo menu já pode funcionar normalmente. Porém, se você quiser implementar outros efeitos especiais, como arrastar e posicionar o CoolBar, será necessário fazer mais algum trabalho de programação. Esses conteúdos não são mais o assunto deste artigo e não serão discutidos. Os leitores interessados podem consultar a ajuda do Delphi.
Os leitores são convidados a fornecer suas próprias opiniões sobre este artigo.