Работа с 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;

