Последние записи

made in programmersforum 5

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

4th
Мар

Нажатие горячих клавиш в ms word

Posted by Chas under Delphi

По нажатию горячей клавиши вызывается процедура, которая вставляет в активное поле набора (в основном Word) указанный текст. Перед этим туда же посылается сочетание клавиш, которые форматируют вводимый текст. Но столкнулся с такой проблемой: включение и выключение горячих клавиш срабатывает не всегда и даже не через раз. Зависимости не нашел. А если поставить галочки на все пункты (жирный, курсивом, подчеркнутый), то все сразу сочетания клавиш посылаются только с третьей-четвертой попытки, а не с первой, как вроде по коду должно. Прошу помочь разобраться, код привожу.

Аватар

//    keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), KEYEVENTF_KEYUP, 0);

//    keybd_event(VK_MENU, MapVirtualKey(VK_MENU,0), KEYEVENTF_KEYUP, 0);

//    keybd_event(VK_SHIFT, MapVirtualKey(VK_SHIFT,0), KEYEVENTF_KEYUP, 0);

  if ttk then

    begin

     if Form1.TKB.Checked then   //Если стоит птичка, то посылаем Ctrl+B, делаем жирным

      begin

        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);

        keybd_event(Ord('B'), MapVirtualKey(Ord('B'), 0), KEYEVENTF_EXTENDEDKEY, 0);

        keybd_event(Ord('B'), 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), KEYEVENTF_KEYUP, 0);

        Sleep(50);

      end;

     if Form1.TKI.Checked then //Если стоит птичка, то посылаем Ctrl+I, делаем курсивом

      begin

        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);

        keybd_event(Ord('I'), MapVirtualKey(Ord('I'), 0), KEYEVENTF_EXTENDEDKEY, 0);

        keybd_event(Ord('I'), 0, KEYEVENTF_EXTENDEDKEY OR KEYEVENTF_KEYUP, 0);

        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), KEYEVENTF_KEYUP, 0);

        Sleep(50);

      end;

     if Form1.TKU.Checked then //Если стоит птичка, то посылаем Ctrl+U, делаем подчеркнутым

      begin

        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);

        keybd_event(Ord('U'), MapVirtualKey(Ord('U'), 0), KEYEVENTF_EXTENDEDKEY, 0);

        keybd_event(Ord('U'), 0, KEYEVENTF_EXTENDEDKEY OR KEYEVENTF_KEYUP, 0);

        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), KEYEVENTF_KEYUP, 0);

        Sleep(50);

      end;

    end;
    //Вставляем текст

      for i:= 1 to Length(text) do

        begin

          PostMessage(vGuiInfo.hwndFocus, wm_Char, Word(text), 0);

          Application.ProcessMessages;

        end;
  if ttk then

    begin

     if Form1.TKU.Checked then //Если стоит птичка, то посылаем Ctrl+U, делаем не подчеркнутым

      begin

        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);

        keybd_event(Ord('U'), MapVirtualKey(Ord('U'), 0),KEYEVENTF_EXTENDEDKEY, 0);

        keybd_event(Ord('U'), 0, KEYEVENTF_EXTENDEDKEY OR KEYEVENTF_KEYUP, 0);

        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), KEYEVENTF_KEYUP, 0);

        Sleep(50);

      end;

     if Form1.TKI.Checked then //Если стоит птичка, то посылаем Ctrl+I, делаем не курсивом

      begin

        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);

        keybd_event(Ord('I'), MapVirtualKey(Ord('I'), 0), KEYEVENTF_EXTENDEDKEY, 0);

        keybd_event(Ord('I'), 0, KEYEVENTF_EXTENDEDKEY OR KEYEVENTF_KEYUP, 0);

        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), KEYEVENTF_KEYUP, 0);

        Sleep(50);

      end;

     if Form1.TKB.Checked then   //Если стоит птичка, то посылаем Ctrl+B, делаем нежирным

      begin

        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);

        keybd_event(Ord('B'), MapVirtualKey(Ord('B'), 0), KEYEVENTF_EXTENDEDKEY, 0);

        keybd_event(Ord('B'), 0, KEYEVENTF_EXTENDEDKEY OR KEYEVENTF_KEYUP, 0);

        keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), KEYEVENTF_KEYUP, 0);

        Sleep(50);

      end;

    end;
  //Восстанавливаем состояние управляющих клавиш

//  if ct then   keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL,0), 0, 0);

//  if al then   keybd_event(VK_MENU, MapVirtualKey(VK_MENU,0), 0, 0);

//  if sh then   keybd_event(VK_SHIFT, MapVirtualKey(VK_SHIFT,0), 0, 0);