Переключение по Tab

[Terio]

Всем доброго времени суток!
Подскажите пожалуйста, как на форме с расставлеными кнопками и едитами организовать переключение по Tab.
Нигде не могу найти информацию.
Заранее спасибо!

[Bjatta]

А чуть поподробнее, какой форум? Вот на нове проверила, работает всё, кажется я где-то в браузере видела что-то про навигацию клавишами на странице...

[Terio]

Я имею ввиду форму в дельфи (TForm).
На ней размещаю несколько кнопок и едитов.
Компилирую проект, запускаю.
Пытаюсь кнопкой Tab переключать фокус (курсор) по этим кнопкам и едитам.
Переключение происходит в том порядке, в каком я создавал эти элементы.
А мне нужно изменить этот порядок. Как это сделать?

[f0w14]

Цитата: Сообщение от Terio Всем доброго времени суток! Подскажите пожалуйста, как на форме с расставлеными кнопками и едитами организовать переключение по Tab. Заранее спасибо!

Вы знаете, в правильно заданном вопросе содержится половина ответа.
В этом вопросе ответа примерно около 10%, поэтому попробую сыграть в угадайку

1. Изменение порядка переключения контролов: на форме щелкаем правой кнопкой и в меню выбираем пункт "Tab Order", упорядочиваем список элементов. Следует иметь в виду, что во всяких панелях и прочих GroupBox и TabSheet следует выполнять те же действия индивидуально.

2. Если требуется переход между контролами не по кнопке Tab, а, например, по Enter, нужно у формы поставить свойство KeyPreview = True, создать обработчик формы OnKeyPress, в котором написать примерно следующее:

  if Key = #13 then begin
    if ActiveControl = Edit1 then
      Memo1.Lines.Add('Ушли из Memo1');
    Key:= #0;
  end;

3. Кнопки Tab, Shifttab никто не отменял, если, конечно, специально они не блокируются программным кодом-перехватчиком

Удачи.

[ksp404]

if Key = #13 then
 begin
  Key := #0;
   SelectNext(Sender as TWinControl, True, True);
 end;

Вот так тоже неплохо будет.

[f0w14]

Цитата: Сообщение от ksp404 if Key = #13 then begin Key := #0; SelectNext(Sender as TWinControl, True, True); end; Вот так тоже неплохо будет.

Да, пардон. Самое главное (SelectNext) забыл.

Но нет предела совершенству! Вот более "усовершенствованный" метод

if Key = #13 then begin
  SelectNext(ActiveControl, True, True);
  Key:= #0;
end;