Скачать: CL | DM;

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

← →
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. Как исправить?

---

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

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

---

← →
russko ©   (2004-03-22 16:46) [15]

Он и так bkCustom.

---

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

Ж:|

---

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

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

---

← →
russko ©   (2004-03-22 16:50) [18]

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.028 c