Текущий архив: 2004.08.08;
Скачать: CL | DM;
Вниз
Как изменить всплывающее меню в таскбаре Найти похожие ветки
← →
AlexR (2004-07-22 02:15) [0]Каким образом можно изменить всплывающее меню при нажатии правой кнопкой на панель программы в ТаскБаре?
← →
Almaz © (2004-07-22 04:36) [1]Надо получить ссылку на системное меню окна приложения и изменить полученное меню. Например так:
const
idMyMenuItem = 1234;
...
MenuHandle := GetSystemMenu(Application.Handle, False);
InsertMenu(MenuHandle, Cardinal(-1), MF_BYPOSITION or MF_SEPARATOR, 0, nil);
InsertMenu(MenuHandle, Cardinal(-1), MF_BYPOSITION or MF_STRING, idMyMenuItem, "Мой пункт");
Обрабатывать события выбора этого пункта необходимо в Application.OnMessage:procedure TForm1.ApplicationOnMessage(var Msg: TMsg; var Handled: Boolean);
begin
if (Msg.message = WM_SYSCOMMAND) and (LoWord(Msg.wParam) = idMyMenuItem) then
begin
ShowMessage("Выбран дополнительный пункт");
Handled := True;
end;
end;
Удачи.
← →
AlexR (2004-07-22 17:56) [2]
> Almaz © (22.07.04 04:36)
Большое спасибо! Очень мне помог!
Страницы: 1 вся ветка
Текущий архив: 2004.08.08;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.052 c
