Как вставить свой пункт меню?

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/