Перехват нажатия клавиши

← →
pusrg © (2002-05-23 21:39) [0]

Мастера, подскажите советом!
Обрабатываю событие OnKeyDown для TEdit (пробовал OnKeyUp - результат тот же) следующим образом:

procedure TFormEditGenOperation.EEditKeyUp(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
case Key of
VK_DOWN:Key:=VK_TAB;
VK_UP:
begin
Shift:=[ssShift];
Key:=VK_TAB;
end;
end;
end;

Фактически хочу при нажатии на клавиши "Вниз", "Вверх" перескакивать на следующий/предидущий контрол в списке Tab Order, но ничего не выходит - фокус остается в том же контроле...
В чем проблема, ведь переменная Key передается как var?
Очевидно TEdit перехватывает мое изменение key?
Как побороть? Заранее спасибо.

← →
Song © (2002-05-23 22:02) [1]

Да, Вы правы, что-то не получается. Буду рад если кто-то укажет на нашу с Вами ошибку...

Предлагаю Вам такой выход из ситуации:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin Case Key OF VK_DOWN: SelectNext(Form1.ActiveControl,True,True); VK_UP: Begin Keybd_event(VK_SHIFT,0,0,0); Keybd_event(VK_TAB,0,0,0); Application.ProcessMessages; Keybd_event(VK_SHIFT,0,KEYEVENTF_KEYUP,0); Keybd_event(VK_TAB,0,KEYEVENTF_KEYUP,0); End; End; end;

← →
pusrg © (2002-05-23 22:36) [2]

To Song
Большое спасибо за Ваш ответ. Прямо таки навели на путь истинный :))

Я позволил себе не много модифицировать Ваш код:

case Key of VK_DOWN:SelectNext(ActiveControl,true,true); VK_UP:SelectNext(ActiveControl,false,true); end;

Еще раз, спасибо.

Да... посыпаю голову пеплом... искал как назад идти по TabOrder"у... не нашёл.. пришлось эмулировать Shift+Tab.. оказалось False надо было поставить.. Срам мне прям таки :-/

Перехват нажатия клавиши Найти похожие ветки