Buscar por:

menu estilo xp usando os componentes basicos d7

Código

        
e possivel fazer agora menus semelhantes aos do xp com componentes nativos do delphi 7 ,, na realidade sao dois componentes q se encontram na paleta ADITIONAL :

=> ActionManager: e com ela q vamos montar as opções

e controlar as ações atribuídas a eles.

=> ActionMainMenuBar: E com esse componente q vamos montar os menus e receber as acoes;

Usando os Componentes:

1- Insira os dois componentes no Formulário:

ActionManager1 e ActionMainMenuBar1

2- Na propriedade ActionManager do ActionMainMenuBar1

coloque o ActionManager1;

3- Na propriedade ActionBars do ActionManager1 terá um

item que é um TActionBarItem, selecione ele e na sua propriedade

ActionBar coloque a ActionMainMenuBar1;

4- O ActionBarItem terá também a propriedade Items... é nela

que

voce adiciona os menus principais, nesse

exemplo adicionei os itens "Cadastros" e "Relatórios";

5- Em cada um desses Itens ,"Cadastros" e o item

"Relatórios"

também possuem a propriedade Items, que é onde Colocamos os

submenus , nesse exemplo coloquei:

Clientes

Fornecedores

Funcionarios

-

Sair

------------------------------x-----------------------------

primeira parte concluida ,, so q os itens do menu estao desabilitados ,, falta ainda definir as acoes pra cada um e ai q entra o 2º componente :

=>ActionManager1

6- agora vamos definir as açoes dos menus: clike duas vezes sobre o

ActionManager1 e

com a tecla Insert poderá ser adicionado novas ações e cada

Action terá

o Evendo OnAction, é nele que você coloca o código

desejado...basta clikar duas vezes na action criada

no exemplo foi definido 4 Actions, 1 para cada item...

7- Atrubuir uma ação ao Item do Menu: Vá na propriedades dos

itens

do menu e na propriedade Action de cada item associe o Action

atribuído a

ele daí é só... seu menu já estará funcionando..

Obs => o caption q foi definido nas acoes do ActionManager1 e o q aparecera no caption dos itens do menu