[Помидоркин]

Помогите кто может
Ситуация следующая: на форме ListBox и Edit, в онклик листбокса эдит получает фокус, в кейпресс эдита происходят манипуляции с листбоксом.
Все работает.

Код:

procedure TForm1.ListBox1Click(Sender: TObject);
...
Edit1.SetFocus;
...
end;

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 case Key of                     
  #13 :
  begin
      ...    //редакирование ListBox1.Items
  end;  

     .....

  '0'..'9', '-', '*', '?', #8: Key:= Key;
 else Key:=#0;
 end;
end;

Пытаюсь в кейпресс добавить

Код:

 #38 :  //стрелка вверх
  begin
   ListBox1.ItemIndex:= ListBox1.ItemIndex-1;
   ListBox1Click(Self);
  end;

Пробовал:

Код:

 'q' :  //просто, для примера
  begin
   ListBox1.ItemIndex:= ListBox1.ItemIndex-1;
   ListBox1Click(Self);
  end;

работает, но нужны клавиши со стрелками
Не помогли следующие варианты

Код:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Char);
begin
 case Key of                     
  VK_UP :
  begin
      ...    

Код:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
 case Key of                     
  #38 :
  begin
      ...    

то же с клавишами: #33 (PageUp), #121 (F10), на #116 (F5) вообще ругается [Error] ..... : Duplicate case label
то ли на

Код:

'T','t', 'Е', 'е':
  begin
  ....

то ли на

Код:

'F','f', 'А', 'а':
  begin
  ....

подскажите как перехватить нажатие на клавишу стрелка.

[PhoeniX]

Юзаем KeyPreview := true. С данной опцией должен работать и KeyPress, и (что более правильно) KeyDown/KeyUp.

[Помидоркин]

Сообщение от PhoeniX

Юзаем KeyPreview := true ...

KeyPreview - это что? свойстово? если свойство, то свойство чего?

[M.A.D.M.A.N.]

Погуглить не судьба было?
http://www.helloworld.ru/texts/comp/...htm#KeyPreview

[Помидоркин]

Сообщение от M.A.D.M.A.N.

Погуглить не судьба было?....

ну да, сначало отписался, а потом уже начал искать

[Freeman]

Сообщение от Помидоркин

то же с клавишами: #33 (PageUp)

На самом деле #33 -- это восклицательный знак, а совсем не PageDown. Легко догадаться, что клавиши управления курсором и прокрутной не генерят символов, а только коды. И KeyPreview тут не причем, если фокус находится на самом элементе управления.

[Помидоркин]

Сообщение от Freeman

На самом деле #33 -- это восклицательный знак, а совсем не PageDown. ...

А вот тут написано иначе
http://hotwebpro.narod.ru/info/progr..._infa/kod.html

[Freeman]

Сообщение от Помидоркин

А вот тут написано иначе
http://hotwebpro.narod.ru/info/progr..._infa/kod.html

Там написано про виртуальные коды клавиш, а в графе "Сравнение по символу" стоит прочерк.

[Помидоркин]

Сообщение от Freeman

Там написано про виртуальные коды клавиш, а в графе "Сравнение по символу" стоит прочерк.

#8 (BackSpace) и #13(Enter) "Сравнение по символу" то-же прочерк, но в кейпресс эти клавиши работают.

...Легко догадаться, что клавиши управления курсором и прокрутной не генерят символов, а только коды. И KeyPreview тут не причем, если фокус находится на самом элементе управления...

Возможно KeyPreview тут и не причем, но если его поставить в тру все работает.

[Alegun]

"Истинный" KeyPreview у формы подразумевает что она первая обрабатывает события, до контролов, со всеми вытекающими