anderbelluno
Colaborador
Registrado: Quarta-Feira, 23 de Novembro de 2011
Mensagens: 1030
Localização: Cianorte-PR
|
 Enviada: Sáb Jan 10, 2015 12:26 pm Assunto: |
 |
|
Se pode ser com o MainMenu faz assim: | Código: |
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;
|
achei isso aqui:
http://www.devmedia.com.br/forum/submenu-do-mainmenu/354851 |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
