Как запретить ввод определённых символов в Edit?

Posted by Chas under Пост-обзор

Vova777:

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

begin

  case Key of

  #8,'0'..'9': ; // цифры и 

  '.': // разделитель целой и дробной частей числа

  begin

    if Pos(DecimalSeparator, Edit1.Text) <> 0 then Key:= Chr(0);

                           // запрет ввода второго разделителя

  end;

  else // остальные символы запрещены

    Key := Chr(0);

end;

end;

тема на форуме

Похожие статьи

• Добавить строку с верха вниз StringGrid
• Скопировать данные из Edit в Word
• Среднеарифметическое значение из Edit
• Вставка произвольных непечатных символов перед шифрованием и удаление рандомных знаков после расшифровки
• Маска на авторизацию в Edit
• Как сделать прозрачный edit?
• Пример как можно загрузить через TStringList в Edit’ы
• Изменение цвета поля edit при попадании на него курсора
• Как сделать чтобы TEdit стал браузерной строкой TWebBrowser?
• Перенести программу из Delphi в Lazarus