| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как заблокировать комбинацию клавиш. [D6, XP]

Andrey K ©   (2015-09-25 10:31:00) 

Перепробовал кучу вариантов. Не получается.
Надо в Tmemo заблокировать комбинацию клавиш Shift+точка на левой клавиатуре с цифрами. Т. е., чтобы при этой комбинации не удалялся символ.

---

Andrey K   (2015-09-28 04:01:00) [1]

Ребята, спасибо, что откликнулись. Я тоже с хот кеями тоже эксперементировал, нифига не получается. Хотел на это сочетание повесить запятую.  Плюнул на это дело и повесил её на Shift +5 (на боковой клавиатуре). Кому понадобиться запятая, в хэлп залезет или правой клавишей мыши тыркнет.

---

SergP   (2015-09-25 17:06:00) [2]

> А по-моему работает так как ему надо. Del не срабатывет.


Ну не знаю. У меня D7. Пробовал. Не работает как предполагается... При нажатии Shift+Decimal все равно срабатывает Del.

---

DVM   (2015-09-25 16:53:00) [3]

> SergP ©   (25.09.15 16:43) [2]


> Так не получится...

А по-моему работает так как ему надо. Del не срабатывет.

---

SergP   (2015-09-25 16:48:00) [4]

> но как оказалось на Mod_Shift и VK_Decimal даже Hotkey не
> получается повесить


вернее хоткей регистрируется, но тем не менее не работает.

---

SergP   (2015-09-25 16:46:00) [5]

Кстати, пробовал убить это сочетание с помощью регистрации Хоткея, но как оказалось на Mod_Shift и VK_Decimal даже Hotkey не получается повесить. Очевидно топикстартеру нужно что-то посерьезнее...

---

SergP   (2015-09-25 16:43:00) [6]

> DVM ©   (25.09.15 14:04) [1]
>
> Так что ли?
>
>
> procedure TForm1.mmo1KeyDown(Sender: TObject; var Key: Word;
>
>  Shift: TShiftState);
> begin
>  if (ssShift in Shift) and (Key = 46) then
>    Key := 0;
> end;


Так не получится... Нажатие шифта произойдет отдельно... А дальнейшее нажатие точки будет интерпретироваться как отпускание шифта (в mmo1KeyUp) и последующее нажатие Delete уже с отпущенным шифтом...

---

DVM   (2015-09-25 14:04:00) [7]

Так что ли?


procedure TForm1.mmo1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if (ssShift in Shift) and (Key = 46) then
   Key := 0;
end;


---

Наверх