home   |   А-Я   |   A-Z   |   меню




Как сделать так, что при нажатии на Enter происходил переход к следующему элементу формы

Ставите у формы KeyPreview = true и создаете событие KeyPress следующего вида:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);

begin

 if (Key = #13) then begin

  Key:=#0;

  Perform(WM_NEXTDLGCTL,0,0);

  end;

end;


Обработка событий от клавиатуры | Виртуальная библиотека Delphi | Вставка и удаление компонент в форму в design-time