Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > System Menu

Автор: Sheff 6.6.2002, 22:16

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

Код

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

А как мне отловить клик по этому Help, я пробовал Application.OnMessage:=...
Потом писал:

Код


if Msg.message=WM_MENUSELECT then begin 
    MessageBox(0,'test','test',MB_OK);
    Handled:=TRUE;
end;

Не сработало. Что делать ?

Автор: Vit 7.6.2002, 00:10

Вроде бы WM_SYSCOMMAND надо ловить, но подробно я этим не занимался...

PS. Кстати у меня есть хороший компонентик для этого

Автор: Song 7.6.2002, 08:15

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;

Автор: Sheff 7.6.2002, 15:34

Спасибо!