Скачать: CL | DM;

Подскажите, как поместить своего Expert-а в главное меню Delphi?   Найти похожие ветки 

← →
dimonf ©   (2003-10-20 10:38) [0]

Я вроде разобрался как помещать Expert-а в любое меню Delphi, но хотелось бы его поместить в главное меню. Для быстрого доступа к Expert.
Вот как я добавляю его в меню "Tools":
constructor TQIExperts.Create;
var
FQIExpertsTopLevelMenu: TMenuItem;
MainMenu: TMainMenu;
ToolsMenuItem: TMenuItem;
begin
FQIExpertsTopLevelMenu := TMenuItem.Create(nil);

FQIExpertsTopLevelMenu.Caption := "QIE&xperts"; // Do not localize.
FQIExpertsTopLevelMenu.Name := "QIExperts"; // Do not localize.

// Insert GExperts drop down menu.
MainMenu := (BorlandIDEServices as INTAServices).MainMenu;
Assert(Assigned(MainMenu), "MainMenu component not found");

ToolsMenuItem := MainMenu.Items.Find("Tools");//MainMenu.Items.Find("Tools");
Assert(Assigned(ToolsMenuItem), "Tools MenuItem component not found");
ToolsMenuItem.Insert(ToolsMenuItem.Count-1, FQIExpertsTopLevelMenu);

end;

Данный прием используеться в GExpert старой версии.

Пытался найти в интернете так и не нашол! 8(

---

← →
Юрий Зотов ©   (2003-10-20 11:36) [1]

Если MainMenu.Items.Find возвращает существующий пункт главного меню, то разве не логично предположить, что MainMenu.Items.Insert будет создавать новый пункт того же меню?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c