Программа должна считать клавишу shift нажатой

@fliperstaa · Регистрация: 26.11.2014

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

Здравствуйте! Есть вот такое задание: В зависимости от системного времени, при вводе данных с клавиатуры, в нечётные минуты считать клавишу Shift не нажатой, в чётные – нажатой.
Я реализовал это через функцию UpperCase, которая изменяет регистры букв, но полностью задания не выполняет. Можно ли сделать так, чтобы именно shift была нажатой(когда тыкаешь на цифры, выводит символы, например) ? Если можно, то как?

@fliperstaa · 03.12.2014, 14:33 **[ТС]**

Вот код проги и форма:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
TDateTime dd=Now();
unsigned short h,mm,s,ms;
dd.DecodeTime(&h,&mm,&s,&ms);
 int pos = Memo->SelLength;
   String S1,S2;
    int len= S2.Length();
 if(mm%2==0)
              {
                 Memo->SelStart=pos;
                 S1 = Memo->Text;
                 S2 = (AnsiString(Edit1->Text)).UpperCase();
 
 
 
                Memo->Text= Memo->Text+S2;
                 Edit1->Clear();
                 }
 
 else     {
                 S1 = Edit1->Text;
                 Memo->Text = Memo->Text + S1;
                 Edit1->Clear();
                 }
 
}

@SatanaXIII · 03.12.2014, 17:00

Сообщение от fliperstaa

но полностью задания не выполняет

Непонятно что под этим имелось в виду.
То есть нельзя использовать UpperCase или у вас просто не получилось?

У Edit-а есть событие KeyDown, в которое передается состояние нажатия шифта:

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::Edit1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if( Shift.Contains( ssShift ) )
  {
  ShowMessage( "Shift pressed" );
  }
else
  {
  Shift << ssShift; // Нажать
  }
}

@fliperstaa · 03.12.2014, 17:33 **[ТС]**

Сообщение от SatanaXIII

Непонятно что под этим имелось в виду.
То есть нельзя использовать UpperCase или у вас просто не получилось?

У Edit-а есть событие KeyDown, в которое передается состояние нажатия шифта:

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::Edit1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if( Shift.Contains( ssShift ) )
  {
  ShowMessage( "Shift pressed" );
  }
else
  {
  Shift << ssShift; // Нажать
  }
}

SatanaXIII, Мне нужно, чтобы шифт сам нажимался,а не отслеживать его. UpperCase просто изменяет регистры, а цифры остаются цифрами, хотя при нажатом шифте должны меняться на символы(7=?)

@gunslinger · 04.12.2014, 01:03

C++
1
2
3
4
5
6
7
8
9
10
11
  if(mm%2==0)
  {
    //нажали и удерживаем Shift
    keybd_event(VK_SHIFT, 0, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, 0);
    keybd_event(VK_SHIFT, 0, KEYEVENTF_EXTENDEDKEY, 0);
  }
  else
  {
    //отпускаем Shift
    keybd_event(VK_SHIFT, 0, KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, 0);
  }

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения 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. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@fliperstaa 0 / 0 / 0 Регистрация: 26.11.2014 Сообщений: 8

	Программа должна считать клавишу shift нажатой 03.12.2014, 14:23. Показов 2933. Ответов 4 Метки нет (Все метки) Здравствуйте! Есть вот такое задание: В зависимости от системного времени, при вводе данных с клавиатуры, в нечётные минуты считать клавишу Shift не нажатой, в чётные – нажатой. Я реализовал это через функцию UpperCase, которая изменяет регистры букв, но полностью задания не выполняет. Можно ли сделать так, чтобы именно shift была нажатой(когда тыкаешь на цифры, выводит символы, например) ? Если можно, то как? 0

Программа должна считать клавишу shift нажатой

Решение