Topic: How to create a menuitem onto not main form
Hi
i find here in the forum how to create/hide a menuitem for a main form, but i cannot find how to create a menuitem for secondary forms.
This code is working for main form but is not working for secondary forms
procedure main_OnShow (Sender: TObject; Action: string);
var
MyItem1: TMenuItem;
mnuPrincipal: TMenuItem;
subClientes: TMenuItem;
subVendedores: TMenuItem;
subProdotto: TMenuItem;
begin
MyItem1 := TMenuItem.Create (main.MainMenu);
MyItem1.Caption := 'Item1';
MyItem1.OnClick := @MenuClick1;
mnuPrincipal := TMenuItem.Create (main.MainMenu);
mnuPrincipal.Caption := 'Menu Principal';
subClientes := TMenuItem.Create (main.MainMenu);
subClientes.Caption := 'Admin Clientes';
subClientes.OnClick := @MenuClick3;
subVendedores := TMenuItem.Create (main.MainMenu);
subVendedores.Caption := 'Admin Vendedores';
subVendedores.OnClick := @MenuClick4;
subProdotto := TMenuItem.Create (main.MainMenu);
subProdotto.Caption := 'Admin Producto Terminado';
subProdotto.OnClick := @MenuClick5;
//main.mniFile.Insert(0, MyItem1);
main.MainMenu.Items.Insert(0, mnuPrincipal);
mnuPrincipal.Add(subClientes);
mnuPrincipal.Add(subVendedores);
mnuPrincipal.Add(subProdotto);
end;
procedure MenuClick1 (Sender: string);
begin
end;
Obviously i made necessary changes for second form, but not working at all.
Any suggestions
Thanks