Enter как Tab

[Vavrenyuk]

Подскажите пожалуйста, как сделать чтобы при нажимании на клавишу Enter переходило по полям как при нажимании на Tab.

[Stilet]

ActiveControl:=FindNextControl(FindNextControl,true,true,true);

Подходит?

[Vavrenyuk]

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

ActiveControl:=FindNextControl(FindNextControl,true,true,true);

Подходит?

Это писать куда ?

[Stilet]

Например в событие OnKeyDown

[Vavrenyuk]

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

Например в событие OnKeyDown

Нет...
[Error] Unit1.pas(112): Not enough actual parameters

[Neeter]

Vavrenyuk, вам правильно сказали, вот пример:

  private
    //Общий обработчик события для инпутов
    procedure inputKeyDownHandler(Sender: TObject; var Key: Word; Shift: TShiftState);
...

//При создании формы всем TEdit'ам присваивается общий обработчик
procedure TForm1.FormCreate(Sender: TObject);
var
 i: integer;
begin
 if ComponentCount <> 0 then
  for i := 0 to ComponentCount - 1 do
   if Components[i] is TEdit then
    TEdit(Components[i]).OnKeyDown := inputKeyDownHandler;
end;

//Обработка нажатия Enter'а
procedure TForm1.inputKeyDownHandler(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 if not (Sender is TEdit) then Exit;
 if Key = VK_RETURN then ActiveControl := FindNextControl(ActiveControl, true, true, true);
end;

[Stilet]

ActiveControl := FindNextControl(ActiveControl, true, true, true);

Прошу прощения описался - первый параметр конечно же ActiveControl

[Vavrenyuk]

Спасибо за код. Всё получилось.