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

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

← →
ava ©   (2002-09-21 22:50) [0]

вопрос простой обрабатываю нажатие клавиатуры
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 THEN
Perform(WM_NEXTDLGCTL, 0, 0); {переход к следующему окну}
end;

все работает

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key = #(37-40) THEN
Perform(WM_NEXTDLGCTL, 0, 0); {переход к следующему окну}
end;
не работает?????

---

← →
MBo ©   (2002-09-21 23:28) [1]

If Key = #(37-40)
Это настораживает ;)
Key -3 ?????

---

← →
Kotka ©   (2002-09-22 01:14) [2]

If Key = #((37-40)*(-1)+10) :-)

---

← →
ava ©   (2002-09-22 19:18) [3]

В общем-то If Key = #(37-40) имелось ввиду любое из этих значение If Key = #37 и т. д.
а решение нашлось
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_down THEN
begin
Perform(WM_NEXTDLGCTL, 0, 0);
end;

спасибо за внимание к проблеме

---

← →
Song ©   (2002-09-22 19:23) [4]

Дык тогда и применяйте оператор in

---

← →
Николай Быков ©   (2002-09-22 19:37) [5]

А чего делает оператор in ?

---

← →
Song ©   (2002-09-22 19:44) [6]

2Николай Быков © (22.09.02 19:37)
Пишешь in и на нём Ctrl+F1, дальше читаешь и поймёшь, что он делает.

2ava © (22.09.02 19:18)
IF Key in [#37..#40] then ...

---

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

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



Память: 0.46 MB
Время: 0.022 c