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