Работа с System Menu

Материал из DRKB

Работа с System Menu[править | править код]

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

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


Author: Sheff
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 01801



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

  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;


Author: Song
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 01802