Как предотвратить автоматическую отправку формы при нажатии клавиши Enter в клиентском сканере штрихкода.

Delphi , ОС и Железо , Сканер

Как предотвратить автоматическую отправку формы при нажатии клавиши Enter в клиентском сканере штрихкода в Delphi

Когда вы сканируете штрихкод с помощью сканера, он распознает штрихкод и отправляет данные в активное поле ввода, добавляя символ перевода строки в конце. В результате, если у вас есть форма с полем ввода штрихкода и кнопкой "Сохранить" в качестве кнопки по умолчанию, форма будет автоматически отправлена при сканировании штрихкода, так как кнопка "Сохранить" воспринимает нажатие клавиши Enter как команду отправки формы.

Чтобы предотвратить это, вы можете использовать-events OnKeyDown и OnKeyPress для поля ввода штрихкода, чтобы проверить, является ли нажатая клавиша Enter и, если да, предотвратить отправку формы. Вот пример кода на Object Pascal (Delphi) для достижения этого:

procedure TForm1.BarcodeEditKeyDown(Sender: TObject; var Key: Word);
begin
  if Key = vkEnter then
  begin
    Key := 0;
    Exit;
  end;
end;

procedure TForm1.BarcodeEditKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    Key := #0;
    Exit;
  end;
end;

В этих процедурах мы проверяем, является ли нажатая клавиша Enter. Если да, мы устанавливаем Key в 0 (в OnKeyDown) или #0 (в OnKeyPress), чтобы предотвратить отправку формы. Теперь, когда вы сканируете штрихкод, форма не будет автоматически отправлена, даже если сканер добавляет символ перевода строки в конце штрихкода.

Если у вас есть несколько полей ввода на вашей форме, вам может потребоваться добавить эти процедуры для каждого поля ввода, чтобы предотвратить автоматическую отправку формы при сканировании штрихкода в любом из полей ввода.

Создано по материалам из источника по ссылке.

Как предотвратить автоматическую отправку формы при нажатии клавиши Enter в клиентском сканере штрихкода в Delphi

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Сканер ::