Как заблокировать комбинацию клавиш.

← →
Andrey K (2015-09-25 10:31) [0]

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

← →
DVM © (2015-09-25 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;

← →
SergP © (2015-09-25 16:43) [2]

> 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 уже с отпущенным шифтом...

← →
SergP © (2015-09-25 16:46) [3]

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

← →
SergP © (2015-09-25 16:48) [4]

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

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

← →
DVM © (2015-09-25 16:53) [5]

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

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

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

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

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

← →
Andrey K (2015-09-28 04:01) [7]

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

Как заблокировать комбинацию клавиш. Найти похожие ветки