Как сделать так, чтобы в строку редактирование (edit) можно было ввести только цифры и запятую?

@igoryak · Регистрация: 18.02.2019

Недавно начал изучать делфи, У меня вопрос, как можно сделать так чтобы в строку редактирования можно было вводить только числа

@AzAtom · 16.06.2019, 12:22

igoryak, в обработчике OnKeyPress вписать:

Delphi

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', ',', #8]) then
    Key := #0;
end;

Добавлено через 2 часа 38 минут
Если только числа, то просто убрать запятую из разрешённого списка. #8 это backspace, нужно иметь возможность удалить символы.

@igoryak 0 / 0 / 0 Регистрация: 18.02.2019 Сообщений: 82
		1
	Как сделать так, чтобы в строку редактирование (edit) можно было ввести только цифры и запятую? 16.06.2019, 09:22. Показов 2134. Ответов 1 Метки нет (Все метки) Недавно начал изучать делфи, У меня вопрос, как можно сделать так чтобы в строку редактирования можно было вводить только числа 0

Опции темы

Как сделать так, чтобы в строку редактирование (edit) можно было ввести только цифры и запятую?

Решение