Topic: [SOLVED] Dynamic Menu - Procedure/Function
Solved
var
MainMenu1 : TMenuItem;
Procedure CreateMenuItem (Const Menu : TMenuItem ; Caption : String );
var MenuItem : TMenuItem;
Begin
MenuItem := TMenuItem.Create(Form1.Menu);
MenuItem.Caption := Caption;
Form1.Menu.Items.Add(MenuItem);
End;
procedure Form1_OnShow (Sender: string; Action: string); // event OnShow
Begin
CreateMenuItem(MainMenu1,'Users');//Create mainMenu
CreateMenuItem(MainMenu1,'Pages');//Create mainMenu
CreateMenuItem(MainMenu1,'Reports');//Create mainMenu
End;
begin
end.