Delphi - база знаний


Как создать свой пункт меню в Дельфи IDE?


Как создать свой пункт меню в Дельфи IDE?




{....} 

uses ToolsApi, Menus; 

{....} 

var 
  item: TMenuItem; 
begin 
  {get reference to delphi's mainmenu. You can handle it like a common TMainMenu} 
  with (BorlandIDEServices as INTAServices).GetMainMenu do 
  begin 
    item := TMenuItem.Create(nil); 
    item.Caption := 'A Mewn caption'; 
    Items.Add(item); 
  end
end

Взято с сайта



Начало  Назад  Вперед



Книжный магазин