□ idCmdFirst, idCmdLast - диапазон допустимых значений для идентификаторов вставляемых пунктов меню;

□ uFlags - набор флагов, главные из которых означают:

CMF NORMAL - обычный вызов контекстного меню, пункты могут быть добавлены. Значение этого флага нулевое, проверять его следует, очистив все биты в параметре uFlags, кроме пяти младших (маска $1F);
CMF DEFAULTONLY - устанавливается, если пользователь задал с объектом действие по умолчанию (например, двойной щелчок). В этом случае пункты меню добавляться не должны;
• cmf_verbsonly - устанавливается, если меню создается для ярлыка объекта, а не для самого объекта. В этом случае многие пункты меню создаваться не должны;

• cmf__explore - устанавливается, если меню создается для объекта, находящегося на левой панели Проводника.

Для иллюстрации объектов - расширений контекстного меню - выберем пример ContMenu (поставляется с Delphi в папке DEMOS\ACTIVEX \SHELLEXT). В этом примере для объектов типа "проект Delphi" добавляется возможность запуска компилятора в командной строке. При вызове метода QueryContextMenu нужный пункт добавляется с помощью функции InsertMenu:

function TContextMenu.QueryContextMenu{Menu: HMENU;
indexMenu, idCmdFirst, idCmdLast, uFlags: UINT): HResult;

begin Result := 0; // или использовать MakeResult(severity_success,

// FACILITY_NULL/ 0) ;

if ( (uFlags and $0000000F) = CMF_NORMAL) or ( (uFlags and CMF_EXPLORE) <> 0) then begin // Добавить один пункт меню во всплывающее меню

InsertMenu(Menu, indexMenu, MF_STRING or MF_BYPOSITION, idCmdFirst, 'Compile. .. ' ) ;

Result := 1; // или использовать MakeResult(severity_success,

// FACILITY_NULL/ 1)

end;
end;

Метод Getcommandstring предоставляет системе данные о пункте меню, в частности, текст подсказки; эта подсказка будет отображаться в строке состояния Проводника, когда курсор находится в нужном месте меню.

Параметры Getcommandstring просты. Первый - idcmd - соответствует идентификатору пункта меню, второй - итуре - запрос на тип информации (GCS HELPTEXT - текст подсказки, GCS VERB - полное название пункта меню). Наконец, параметры pszName и cchMax задают буфер, в который будут копироваться текстовые данные. Полное название необходимо системе, чтобы с его помощью вызывать предусмотренные в пункте действия программно. В примере ContMenu возврат названия (т. е. обработка запроса GCS VERB) не предусмотрен, а в ответ на запрос GCS HELPTEXT возвращается

ТеКСТОВаЯ строка "Compile the selected Delphi project".

Наиболее сложным является метод invokeCommand. Он вызывается при выборе пользователем вставленного вами пункта меню. По сути дела метод invokeCommand представляет собой прямой аналог обработчика onclick обычных пунктов меню (объектов TMenuitem) в Delphi.

Единственным параметром метода является структура типа TCMinvoke-Commandinfo, поля которой имеют такое предназначение:

О cbsize - размер структуры в байтах;
□hwnd - задает дескриптор окна, которое будет владельцем диалоговых окон, вызываемых из метода;

⇐ Предыдущая страница| |Следующая страница ⇒

Программирование в Delphi 7



Новости за месяц

  • Ноябрь
    2018
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс