Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

Delphi , ОС и Железо , Клавиши

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

Автор: Галимарзанов Фанис

- Захотел ты бе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;

Статья Обработка нажатий клавиш вверх-вниз раздела ОС и Железо Клавиши может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Клавиши ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
21.02.2020 12:29:59/0.0027248859405518/0