|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Перемещение курсора на нужный компонент по порядку
Добрый день! Подскажите пожалуйста, что нужно прописать,чтобы не мышкой кликать на нужный компонент,зная порядки TabOrder-а, а клавишей Enter.
Например: с "Тип документа" при нажатии клавиши Enter, курсор перешел на "Цех". То бишь,не мышкой двигать,и не пользоваться клавишей Tab. Компоненты: Edit, два wwDBLookup-a. Delphi 7. |
#2
|
||||
|
||||
Код:
FindNextControl(ActiveControl, True, True, False).SetFocus; Пишу программы за еду. __________________ |
#3
|
|||
|
|||
Цитата:
а можно узнать,это в какой процедуре надо прописать? |
#4
|
||||
|
||||
ну очевидно в той, когда фокус должен перейти на другой контрол я бы сделал в OnKeyPress формы (KeyPreview:=True):
Код:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key=#13 then begin Key:=#0; FindNextControl(ActiveControl, True, True, False).SetFocus; end; end; Пишу программы за еду. __________________ |
#5
|
||||
|
||||
А не проще задать табиндексы в нужном порядке?
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |