How to Add a MenuItem to the top level menu of lazarus IDE?

[Martin_fr]

At what time to you call RegisterIDESubMenu?

It should be in the "register" procedure. (Which is called at some time by the IDE)
(You have that in your original example... but just checking)

If you put it into some initialization section, it likely wont work.

------- EDIT:
Or well, double check it.

Code: Pascal  [Select][+][-]

1. assert(mnuMain<>nil);

-Sa

[JuhaManninen]

If what needed to be done is this....   it didn't work.

Code: Pascal  [Select][+][-]

1. begin
2.   vSect := RegisterIDESubMenu(mnuMain,'mniJFrameworkMainMenu','Jota Framework');
3.   RegisterIDEMenuCommand(vSect, 'mniJotaIdeWizard','Abrir JFW Manager [Ctrl+M]', nil, @OpenJFWManager);
4. end;

Here the exact verbatim same code works. I test by modifying the ToDoList package's Register procedure, but that should make no difference.
Only the "(Sender as TComponent).Name" in your OnClick handler gives an error about a wrong typacast. Use "Sender.ClassName" to see what type it is.

[LeoBruno]

You are right..

I don't know what happened before.


Tested again and it worked....

I want to thank you all for the help.

I Really apreciate it!

If what needed to be done is this....   it didn't work.

Code: Pascal  [Select][+][-]

1. begin
2.   vSect := RegisterIDESubMenu(mnuMain,'mniJFrameworkMainMenu','Jota Framework');
3.   RegisterIDEMenuCommand(vSect, 'mniJotaIdeWizard','Abrir JFW Manager [Ctrl+M]', nil, @OpenJFWManager);
4. end;

Here the exact verbatim same code works. I test by modifying the ToDoList package's Register procedure, but that should make no difference.
Only the "(Sender as TComponent).Name" in your OnClick handler gives an error about a wrong typacast. Use "Sender.ClassName" to see what type it is.

[HeavyUser]

To make it work I had to select the unit1 file in the package manager and check the register unit checkbox. See attached screenshot. I'm guessing the register procedure never executed.