Menus
alguem sabe como colocar e retirar itens de um menu em tempo de execução?
T_rossini
Curtidas 0
Respostas
Fabiogut
29/12/2003
[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.
GOSTEI 0