Как вставить свой пункт меню? |
Previous Top Next |
Code: |
{ ... } var CBar: CommandBar; MenuItem: OleVariant; { ... }
{ Add an item to the File menu } CBar := Word.CommandBars['File']; MenuItem := CBar.Controls.Add(msoControlButton, EmptyParam, EmptyParam, EmptyParam, True) as CommandBarButton; MenuItem.Caption := 'NewMenuItem'; MenuItem.DescriptionText := 'Does nothing'; {Note that a VB macro with the right name must exist before you assign it to the item!} MenuItem.OnAction := 'VBMacroName'; { ... } |
©Drkb::04415
Взято с Delphi Knowledge Base: http://www.baltsoft.com/