перемещение в форме

[bosston]

Привет Всем!
подскажите, как мне сделать перемещение на форме между полями ввода по клавише Enter, т.е. после ввода значение в поле, клиент нажал enter и курсор перешел на следующее поле ввода, а не остался в этом поле?

[Stilet]

Опиши для полей такое:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then ActiveControl:=FindNextControl(TWinControl(sender),true,true,true);
end;

[Скандербег]

Можно только в форме сделать, не трогая компоненты на ней.

  TMyForm = class(TForm)
  ...
  private
    procedure CMDialogKey(var Msg: TCMDialogKey); message CM_DIALOGKEY;
  ...
  end;

implemantation
...
procedure TMyForm.CMDialogKey(var Msg: TCMDialogKey);
begin
  if Msg.CharCode = VK_RETURN  then begin
    Perform(CM_DIALOGKEY, VK_TAB, 0);
    Msg.Result := 1;
    Exit;
  end;

  inherited;
end;

Установить свойство формы KeyPreview = True