[ApplicatiOn]

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

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

Код:

1 2 3 4 5 6 7 8

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)

идем дальше...

Код:

1 2 3 4 5 6 7 8

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.]

Код:

1 2 3 4 5

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

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

[ApplicatiOn]

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