| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Перехват нажатия клавиши [D5, Win2k]

pusrg ©   (2002-05-23 21:39:00) 

Мастера, подскажите советом!
Обрабатываю событие 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:40:00) [1]

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

---

pusrg   (2002-05-23 22:36:00) [2]

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

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


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


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

---

Song   (2002-05-23 22:02:00) [3]

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

Предлагаю Вам такой выход из ситуации:

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;

---

Наверх