Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

14th
Ноя

Работа клавиши Enter как Tab

Posted by micher under Delphi

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

Neeter

 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 is TEdit then

    TEdit(Components).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;