Fórum Menus #203306
29/12/2003
0
alguem sabe como colocar e retirar itens de um menu em tempo de execução?
T_rossini
Curtir tópico
+ 0
Responder
Posts
29/12/2003
Fabiogut
[quote=´t_rossini´]alguem sabe como colocar e retirar itens de um menu em tempo de execução?
Eu fiz um exemplo onde clicando sobre um botão ele cria um item no menu:
procedure TForm1.Button1Click(Sender: TObject);
var
itemMenu: TMenuItem;
begin
itemMenu := TMenuItem.Create(MainMenu1);
itemMenu.Caption := ´Sair´;
itemMenu.OnClick := SeuEvento;
itemMenu.Name := ´mnuSair´;
MainMenu1.Items.Add(itemMenu);
end;
É bem simples e voce pode usar em vez de um TMenuItem ou Array of TMenuItem.
Espero ter ajudado.
Responder
Gostei + 0