The problem with connecting Delphi menus

Question

I am trying to combine the two main menus together, but I am having trouble getting the correct result with sub-items. I use the GroupIndex property in my MenuItems to control merge / insert.

Menu1 (with group pointers) is as follows

• File = 10
  • Open = 11
  • Close = 12
• Edit = 20
  • Cut = 21
  • Paste = 22
• Help = 90
  • O = 91

Menu2 is as follows

• Edit = 20
  • Clear = 23
• Widgets = 30
  • WIDGET1 = 31
  • WIDGET2 = 32

And i do

  Menu1.Merge(Menu2);

I want a new top menu "Widgets" and a new "Clear" command in the "Edit" menu to appear in the combo menu. Widgets work fine, but the Edit menu lost the cut and paste, which I didn't want.

How can I stop the Cut and Paste commands?

Answer 1

Delphi , : ( !). , Menu1.Merge Menu1 "Edit" Menu2.

:

• "" "" Menu2.
• Merge.

(. SO):

2000 . , TB2Merge, , .

, TB2Merge, ...