Нажатие клавиш

← →
russko © (2004-03-22 16:05) [0]

Подскажите как обработать нажатие только одного Enter (без Ctrl), а то ставлю if (key=VK_RETURN) then... и обрабатывается только нажатие Enter+Ctrl.

← →
serge © (2004-03-22 16:08) [1]

???

← →
russko © (2004-03-22 16:09) [2]

Как обработать нажатие на только одну кнопку Enter, а не сочетание Ctrl+Enter?

← →
serge © (2004-03-22 16:12) [3]

Так именно таким образом : if (key=VK_RETURN), а ssCtrl случайно не проверяешь ?

← →
russko © (2004-03-22 16:12) [4]

Каким образом можно проверить?

← →
WebErr © (2004-03-22 16:14) [5]

OnKeyPress(Sender, Key);
Key = #13 ^^ :))))

← →
serge © (2004-03-22 16:16) [6]

For OnKeyDown:

if ssCtrl in Shift then

← →
russko © (2004-03-22 16:17) [7]

2 serge
if ssCtrl in Shift then - это понятно, но как ctrl отключить?

← →
Плохиш (2004-03-22 16:22) [8]

if not (ssCtrl in Shift) then

← →
serge © (2004-03-22 16:23) [9]

Ну, не знаю наверное преславутая ошибка в 17-ой строке, или я нифиха не понимаю.

← →
serge © (2004-03-22 16:25) [10]

if (key=VK_RETURN) then... и обрабатывается только нажатие Enter+Ctrl. ???

← →
russko © (2004-03-22 16:27) [11]

В том то и прикол, всё что вы советуете я делал, но фишка в том, что в edit нажатие на enter вообще не производит никакого эффекта, как-будто она вообще не нажимается (((

← →
serge © (2004-03-22 16:41) [12]

Ради интереса сделал
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin If (Key = VK_RETURN) And (Not (ssCtrl In Shift)) Then ShowMessage(""); end;
в Едите - все прекрсно работает.

← →
russko © (2004-03-22 16:43) [13]

Я понял, при нажатии на Enter эта сволочь активирует Button1, хотя фокус находится в edit. Как исправить?

Kind смени на Custom!!!

Он и так bkCustom.

Ж:|

ТОчнее это не Button, а BitBtn, мож там какая-то .. отлавливает?

Всё всем спасибо, сам дошёл. Ну и дебил же я )))

Тогда вам не сюда, а этажом выше .... :))

Нажатие клавиш Найти похожие ветки