How to create and add new menu item to Delphi IDE ==================================================    以下是阿子提供的方法:    ex.   

var  NTAServices40: INTAServices40;
begin
NTAServices40 := BorlandIDEServices as INTAServices40;
NTAServices40.MainMenu.Items.Find('&Component');
FMenuItem := TMenuItem.Create(ComponentMenuItem);    try
    FMenuItem.Caption := 'New &Expert...';
    FMenuItem.OnClick := OnClick;
    ComponentMenuItem.Insert(ComponentMenuItem.IndexOf(ComponentMenuItem.Find('Install Component...'))   1, FMenuItem);
  except
    FreeAndNil(FMenuItem);
  end;    

網路志工聯盟----Visita網站http://www.vista.org.tw ---[ 發問前請先找找舊文章 ]--- 發表人 - axsoft 於 2003/01/14 10:42:49