Отловить клик по системное меню диалога

Delphi , Компоненты и Классы , Меню

Отловить клик по системное меню диалога

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;

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

Статья Отловить клик по системное меню диалога раздела Компоненты и Классы Меню может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Меню ::

02.06.2023 08:16:34/0.00049901008605957/0