Add Items To Dinamic TMainMenu ? 1

[Spent]

Can you tell me how to add items to TMainMenu.I have this structure
File Edit Modules
How can i add items to the modules menu dinamicaly when I run the application
Thank You !

Spent
mail:spentbg@yahoo.com

 

[GHolden]

Hi,

You can try something like this (adds 4 new sub menu items to the 3rd menu item across)...

var
  NewMenuItem : TMenuItem;
  i : integer;

begin
  for i := 1 to 4 do
  begin
    //Create new menu item
    NewMenuItem := TMenuItem.Create(Self);
    //set caption
    NewMenuItem.Caption := 'New Item' + IntToStr(i);
    //add as new item to 3rd menu item
    MainMenu1.Items[2].Add(NewMenuItem);
  end
end;

Hope this points in the right direction.



There are two ways to write error-free programs; only the third one works.

 

[Spent]

That is just what I was looking for.Thanks GHolden.I think a star is yours.

Spent
mail:spentbg@yahoo.com