Обработка нажатий клавиш вверх-вниз

- Захотел ты беcпредел? Так нажми контрол+алт+дел!

Почти всегда требуется обработка нажатий клавиш "вверх-вниз" для смены фокуса ввода - мои "тетки-юзеры" боются мышей, да и сам я не любитель комбинаций мышь-клавиатура.

procedure TfmAbProps.edNameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = vk_down) and
    not (ssAlt in Shift)
      {// здесь обработка для "выпадающих" окошек типа TRxDBCalcEdit} then
  begin
    Key := 0;
    SelectNext(Sender as TWinControl, true, true);
  end
  else if Key = vk_up then
  begin
    Key := 0;
    SelectNext(Sender as TWinControl, false, true);
  end;
end;

Для элементов редактирования типа TDbEdit, TRxDBCalcEdit or TDBDateEdit назначим

OnKeyDown:=edNameKeyDown

Сложнее с типами вроде TRxDBLookupCombo. Наш прежний обработчик для них не подходит. Я пытался изменить характер TRxDBLookupCombo - но вовремя опомнился - есть же FormKeyDown;

procedure TfmAbProps.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ActiveControl is TRxDBLookupCombo) then
  begin
    if Key = vk_down then
    begin
      if not (ssAlt in Shift) and not
        // здесь нельзя обработать нажатие при вызове "выпадающего"
      (ActiveControl as TRxDBLookupCombo).IsDropDown then
      begin // и в случае уже "выпвшего"
        Key := 0;
        selectnext(ActiveControl, true, true);
      end;
    end
    else if Key = vk_up then
    begin
      if not (ActiveControl as TRxDBLookupCombo).IsDropDown then
      begin
        Key := 0;
        selectnext(ActiveControl, false, true);
      end;
    end;
  end;
end;

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация по разработке на Delph - "Обработка нажатий клавиш вверх-вниз", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!