Числовая маска компонента Edit

Delphi , Компоненты и Классы , TEdit

Я предлагаю обработать событие OnKeyPress следующим образом:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = ',' then
    Key := DecimalSeparator; // запятую заменяем на разделитель для числа

  if Key = '.' then
    Key := DecimalSeparator; // точку заменяем на сепаратор (на всякий случай)

  if not (Key in ['0'..'9','-',DecimalSeparator,#8,#13]) // символы которые пропускаются
    or ((Key = DecimalSeparator) // все цифры знак минус разделитель
    and (POS (DecimalSeparator, Edit1.Text) > 0)) // запрет на второй сепаратор
    or ((Key = '-') and (POS ('-', Edit1.Text) > 0)) // запрет на второй минус
    or ((Key = '-') and (Edit1.SelStart <> 0)) // запрет на минус не вначале цифры
    then // (можно и предыдущей строчки но так лучше для понимания)
  begin
      Key := #0; // запрещенный символ заменяем нулем
      MessageBeep (MB_OK); // биб в спикир
  end;
end;

Программный код на языке Delphi, который обрабатывает событие OnKeyPress для компонента редактирования. Цель этого кода - фильтровать недопустимые символы ввода и обеспечить, чтобы пользователь мог ввести только валидные десятичные числа с максимальным количеством одного знака разделителя и не более одного минус-знака.

Разбивка кода:

1. Он проверяет, является ли нажатый символ запятой (,) или точкой (.) и заменяет его на символ разделителя десятичной точки, определенный в системных настройках.
2. Затем он проверяет, является ли нажатый символ не цифрой (0-9), минус-знаком (-) или символом разделителя, и если так, то устанавливает переменную Key в #0 (нулевой символ). Это эффективно предотвращает любые недопустимые символы от ввода в поле редактирования.
3. Код также проверяет конкретные условия, которые приведут к появлению более одного знака разделителя или минус-знака:
   • Если нажат символ разделителя и уже есть один в поле редактирования, то устанавливает переменную Key в #0.
   • Если нажат минус-знак и уже есть один в поле редактирования, то также устанавливает переменную Key в #0. Кроме того, если минус-знак не находится в начале поля редактирования (т.е. пользователь пытается вставить минус-знак в середине числа), то также устанавливает переменную Key в #0.
4. Наконец, если выполнены любые из этих условий, код отправляет звуковое сообщение с помощью MessageBeep(MB_OK).

Альтернативное решение:

Вместо установки переменной Key в #0 и отправки звукового сообщения можно просто игнорировать событие нажатия клавиши, вернувшись из процедуры без выполнения дальнейшего кода. Это предотвратит ввод недопустимого символа в поле редактирования без производства звукового сигнала.

Обновленная версия кода, которая реализует это альтернативное решение:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', '-', DecimalSeparator, #8, #13]) or
     ((Key = DecimalSeparator) and POS(DecimalSeparator, Edit1.Text) > 0) or
     ((Key = '-') and POS('-', Edit1.Text) > 0) or
     ((Key = '-') and Edit1.SelStart <> 0)
  then
    Exit;
end;

Этот код достигает той же цели, что и оригинальный код, но без производства звукового сигнала.

В статье описывается способ создания числовой маски для компонента Edit в Delphi, предотвращающий ввод нечисловых символов и ограничивающий количество разделителей для числа.

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

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

:: Главная :: TEdit ::