Горячие клавиши

23.12.2012, 17:10. **Показов** 1139. **Ответов** 2

Студворк — интернет-сервис помощи студентам

Ввожу горячие клавиши

C++
1
2
bool r1 =RegisterHotKey(Handle,1,0,qqq->HotKey);//qqq THotKey (в примере будет использована буква 'Y')
if(r1) RichEdit1->Lines->Add("Зарегистрирована");

Далее:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
      bool &Handled)
{
if (Msg.message == WM_HOTKEY)
{
if (Msg.wParam == 1)
        {
keybd_event('D', 0, 0, 0);
keybd_event('D', 0, KEYEVENTF_KEYUP, 0);
keybd_event('Y', 0, 0, 0);//происходит срабатывание события заного.
keybd_event('Y', 0, KEYEVENTF_KEYUP, 0);
        }
}}

Нужно реализовать ввод некоторых букв по хоткею вместе с этой буквой, но идет зацикливание, как этого избежать?

@Lelik-pahan · 23.12.2012, 22:23

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
      bool &Handled)
{
    static bool ProgramKeyPres = false;  //этот флаг будет указывать на то, что клавиша была нажата тобой программно и не нужно никак обрабатывать это событие
    if (Msg.message == WM_HOTKEY && !ProgramKeyPres)  //условие выполнится только если ProgramKeyPres == false, т. е. нажатие не было программным    
        if (Msg.wParam == 1)
        {
            ProgramKeyPres = true;
            keybd_event('D', 0, 0, 0);
            keybd_event('D', 0, KEYEVENTF_KEYUP, 0);
            keybd_event('Y', 0, 0, 0);//происходит срабатывание события заного.
            keybd_event('Y', 0, KEYEVENTF_KEYUP, 0);
            ProgramKeyPres = false;
        }
}

24.12.2012, 21:00

Сообщение от Lelik-pahan

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
      bool &Handled)
{
    static bool ProgramKeyPres = false;  //этот флаг будет указывать на то, что клавиша была нажата тобой программно и не нужно никак обрабатывать это событие
    if (Msg.message == WM_HOTKEY && !ProgramKeyPres)  //условие выполнится только если ProgramKeyPres == false, т. е. нажатие не было программным    
        if (Msg.wParam == 1)
        {
            ProgramKeyPres = true;
            keybd_event('D', 0, 0, 0);
            keybd_event('D', 0, KEYEVENTF_KEYUP, 0);
            keybd_event('Y', 0, 0, 0);//происходит срабатывание события заного.
            keybd_event('Y', 0, KEYEVENTF_KEYUP, 0);
            ProgramKeyPres = false;
        }
}

Это первое что пришло в голову, проверял, по какой то причине не работает, и тоже зацикливание.

Новые блоги и статьи Все статьи Все блоги /
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .