Работа с System Menu

Previous Top Next

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

Code:

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

Автор ответа: Sheff

©Drkb::01801

Взято с Vingrad.ru http://forum.vingrad.ru

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

Code:

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;

©Drkb::01802

Автор: Song

Взято с Vingrad.ru http://forum.vingrad.ru