Sources
Delphi Russian Knowledge Base
DRKB - база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Работа с System Menu

01.01.2007

Вариант 1:

Author: Sheff

Source: Vingrad.ru https://forum.vingrad.ru

Добавить новый пункт меню в системное меню диалога:

AppendMenu(GetSystemMenu(Self.Handle,FALSE),
           MF_ENABLED,
           1001,
           '&Help'); 

Вариант 2:

Author: Song

Source: Vingrad.ru https://forum.vingrad.ru

Отловить клик по меню можно следующим образом:

private

procedure WhetherUserPressesHelp(var Msg: TMessage); message WM_SYSCOMMAND;
....

procedure TForm1.WhetherUserPressesHelp(var Msg: TMessage);
begin
  if Msg.WParam = 1001 then
    HelpForm.ShowModal
  else
    inherited; // к примеру вызываем форму на которой будет помощь
end;
Previous page:
Как очистить пункт меню «Документы» кнопки «Пуск»?
Top:
DRKB
Next page:
Системный трей