Переход между компонентами

[UnChanter]

Есть на форме, допустим, 3 едита, нужно чтобы по нажатию в одном едите, Enter, фокус передавался во второй (как кнопкой Tab). Собственно тут всё понятно, в каждом едите OnKeyPress прописать переход. НО! можно ли как нибудь систематизировать это? т.е. чтобы написать отдельную процедуру, которая будет обрабатывать переход, а не писать в каждом едите.

И второй вопрос... Насколько я понял по нажатию на кнопку Tab фокус передаётся последующему компоненту, а вот как изменить какой компонент будет следующим? т.к. у меня не в том порядке нужно передавать фокус.

[anGeee]

Начну со второго вопроса.
У компонент есть свойство TabOrder. Там и указывается порядок элементов при табуляции.
Вот, а на счёт первого вопроса я не уверен, но попробую )
Можно написать один обработчик по нажатию клавиши для всех едитов. Так как в процедуру передаётся объект, вызвавший эту самую процедуру, то можно узнать его TabOrder. Допустим, запомнили в переменную i. Вот, и потом можно пробегаться по всем компонентам на форме, если они относятся к классу TEdit, то сравнивать его TabOrder с i+1 и передавать ему фокус )
зы Ещё в голову по ходу дела пришло эмулировать нажатие Tab'а ^^

[UnChanter]

за второй вопрос спасибо!

procedure TForm1.MyProc(Sender: TObject; var Key: Char);
begin
 if key=#13 then ShowMessage('Работает!!!');
....
// дальше понятно
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
 for i:=0 to Form1.ComponentCount-1 do
  if Components[i] is TEdit then
  with Components[i] as TEdit do OnKeyPress:=MyProc
end;

вот что получилось...
Спасибо!