SubMenu do MainMenu

Delphi

05/03/2008

Boa tarde a todos....

Como devo fazer para acrescentar ou remover um submenu do MainMenu?
Por exemplo

[list:f963aca395]
1 - Cadastro
1.1 - Cadastro de Livros
1.2 - Cadastro de Revistas
1.3 - Cadastro de CD
[/list:u:f963aca395]


Tenho o menu Cadastro com 3 itens abaixo.
Para tirar o menu cadastro utilizo:
[b:f963aca395]menuprin.MainMenu1.Items.Remove(Cadastro1);[/b:f963aca395]

Para colocar utilizo: [b:f963aca395]menuprin.MainMenu1.Items.Add(Cadastro1);[/b:f963aca395]

E agora como faço para fazer a mesma coisa mas com o Cadastro de Livros, Cadastro de Revistas e Cadastro de CD?

Obrigado.

Uelinton


Uelinton_reis

Uelinton_reis

Curtidas 0

Respostas

Hall 9000

Hall 9000

05/03/2008

Essas 3 funções que desenvolvi criam o menu completo:

procedure TForm1.AdicionarGuiaMenu(pMenuPrincipal: TMainMenu; pCaptionItem: string);
var
NovoItem: TMenuItem;
begin
NovoItem:= TMenuItem.Create(Self);
NovoItem.Caption:= pCaptionItem;
pMenuPrincipal.Items.Add(NovoItem);
end;

procedure TForm1.AdicionarItem(pMenuPrincipal: TMainMenu; pPosHoriz: Byte; pCaptionItem: string);
var
NovoItem: TMenuItem;
begin
NovoItem:= TMenuItem.Create(Self);
NovoItem.Caption:= pCaptionItem;
pMenuPrincipal.Items[pPosHoriz].Add(NovoItem);
end;

procedure TForm1.AdicionarSubItem(pMenuPrincipal: TMainMenu; pPosHoriz, pPosVert: Byte;
pCaptionSubItem: string);
var
NovoSubItem: TMenuItem;
begin
NovoSubItem:= TMenuItem.Create(Self);
NovoSubItem.Caption:= pCaptionSubItem;
pMenuPrincipal.Items[pPosHoriz].Items[pPosVert].Add(NovoSubItem);
end;


procedure TForm1.BtnCriarMenuClick(Sender: TObject);
begin
AdicionarGuiaMenu(MainMenu1,´Arquivo´);
AdicionarItem(MainMenu1,0,´Cadastro´);
AdicionarSubItem(MainMenu1,0,0,´Cadastro de Livros´);
AdicionarSubItem(MainMenu1,0,0,´Cadastro de Resvistas´);
AdicionarSubItem(MainMenu1,0,0,´Cadastro de CDs´);
AdicionarItem(MainMenu1,0,´Venda´);
AdicionarSubItem(MainMenu1,0,1,´Venda de Livros´);
AdicionarSubItem(MainMenu1,0,1,´Venda de Resvistas´);
AdicionarSubItem(MainMenu1,0,1,´Venda de CDs´);
end;

Qquer dúvida posta aí.


GOSTEI 0
POSTAR