При нажатии на клавишу "ВВерх" или "Вниз" в поле Эдит необходимо задать действие
пробовал сделать так:
Код:
procedure TfmMain.MEditKeyPress(Sender: TObject; var Key: Char);
begin
if key = #26 then
...
else
if key = #28 then
...
end;
Тут коСпилятор не ругается однако результата никакого...
26 - означает стрелку вверх (виртуальные клавиши) подобно virtual key up (vk_up)
28 - означает стрелку вниз (виртуальные клавиши) подобно virtual key down (vk_down)
идем дальше...
Код:
procedure TfmMain.MEditKeyPress(Sender: TObject; var Key: Char);
begin
if key = vk_up then
...
else
if key = vk_down then
...
end;
коСпилятор пыхтит аж покраснел..
в чем дело? как осуществить задуманное?
заранее спасибо...