Delphi - база знаний


Работа с System Menu


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





Начало  Назад  Вперед