[Staziah2]

Добрый день! Подскажите пожалуйста, что нужно прописать,чтобы не мышкой кликать на нужный компонент,зная порядки TabOrder-а, а клавишей Enter.
Например: с "Тип документа" при нажатии клавиши Enter, курсор перешел на "Цех". То бишь,не мышкой двигать,и не пользоваться клавишей Tab. Компоненты: Edit, два wwDBLookup-a. Delphi 7.

[NumLock]

Код:

FindNextControl(ActiveControl, True, True, False).SetFocus;

[Staziah2]

Сообщение от NumLock

Код:

FindNextControl(ActiveControl, True, True, False).SetFocus;

а можно узнать,это в какой процедуре надо прописать?

[NumLock]

ну очевидно в той, когда фокус должен перейти на другой контрол я бы сделал в 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;

[Страдалецъ]

А не проще задать табиндексы в нужном порядке?