Работа с System Menu

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

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

Автор ответа: Sheff
Взято с 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;

Автор ответа: Song
Взято с Vingrad.ru

Содержание раздела