[ApplicatiOn]

При нажатии на клавишу "ВВерх" или "Вниз" в поле Эдит необходимо задать действие

пробовал сделать так:

Код:

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;

коСпилятор пыхтит аж покраснел..

в чем дело? как осуществить задуманное?

заранее спасибо...

[ApplicatiOn]

неужели никто незнает?

кстати я посмотрел кое-что... в первые 26 и 28 нужно ставить не # а $ т.к. это не байтовые, а hex значения...

всеравно пишет ошибку..

[:S.p.a.m.]

Код:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_UP then edit1.Left:=edit1.Left+1;
end;

Используй KeyDown и никаких проблем

[ApplicatiOn]

спасибо, работает....