переход курсора по нажатию клавиши

[matus]

Здравствуйте, подскажите, пожалуйста, каким образом можно сделать так, чтобы при нажатии клавиши, напр. ENTER, курсор перемещался по объектам (Edit и ComboBox) в порядке Tab. Сейчас это возможно с помощью клавиши Tab. Спасибо за внимание

[_Dmitry]

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_Return then Edit2.SetFocus;
end;

[matus]

ой спасибо Вам огромное!!!

[mihali4]

Как заставить кнопку Enter работать наподобие Tab

Как-то бухгалтер, который пользовался моей программой, заявил, что ему неудобно перескакивать пустые поля в форме кнопкой Tab, и что намного удобнее это делать обычным Enter-ом.

Пример обработчика события:

procedure Tform1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
ACtrl: TWinControl;
begin
if key = 13 then
begin
ACtrl := ActiveControl;
if ACtrl is TCustomMemo then exit;
repeat
ACtrl:= FindNextControl(ACtrl,true,true,fal se);
until (ACtrl is TCustomEdit) or
(ACtrl is TCustomComboBox) or
(ACtrl is TCustomListBox) or
(ACtrl is TCustomCheckBox) or
(ACtrl is TRadioButton);
ACtrl.SetFocus ;
end;
end;

Не забудьте установить свойство формы KeyPreview в true.
Как Вы можете видеть, этот код использует функцию FindNextControl, которая ищет следующий свободный контрол.
Так как все формы в приложении наследуются от одной, то достаточно поместить этот код в главную форму и после этого все формы будут реагировать на нажатие Enter подобным образом.