Форум: "Основная";
Текущий архив: 2003.10.30;
Скачать: [xml.tar.bz2];
Вниз
Подскажите, как поместить своего 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 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.30;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.013 c