Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 308

•  TDictionary Custom Sort  6 356

•  Fast Watermark Sources  6 144

•  3D Designer  9 087

•  Sik Screen Capture  6 469

•  Patch Maker  6 887

•  Айболит (remote control)  6 864

•  ListBox Drag & Drop  5 742

•  Доска для игры Реверси  96 657

•  Графические эффекты  7 084

•  Рисование по маске  6 390

•  Перетаскивание изображений  5 257

•  Canvas Drawing  5 629

•  Рисование Луны  5 330

•  Поворот изображения  4 881

•  Рисование стержней  3 462

•  Paint on Shape  2 721

•  Генератор кроссвордов  3 598

•  Головоломка Paletto  2 891

•  Теорема Монжа об окружностях  3 698

•  Пазл Numbrix  2 431

•  Заборы и коммивояжеры  3 112

•  Игра HIP  2 071

•  Игра Go (Го)  1 999

•  Симулятор лифта  2 358

•  Программа укладки плитки  2 060

•  Генератор лабиринта  2 517

•  Проверка числового ввода  2 203

•  HEX View  2 534

•  Физический маятник  2 147

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Ограничение TEdit на ввод не-цифровой информации



Автор: Михаил Шпанер

Встречаются три операционных системы:
- PC-DOS. Version 7.
- OS/2. Version 4. Merlin.
- А я Windows... Просто Windows.

Посылаю Вам несколько расширенный вариант числовой маски компонента TЕdit c помощью OnKeyPress. В отличие от имеющегося в "Советах", приведенный код не "запирает" поле ввода при заполнении десятичной части, преобразует точку в запятую (для удобства пользователя), не позволяет поставить десятичную запятую перед числом и позволяет стирать знаки в поле ввода клавишей 'Back Space'. Код проверен в Delphi 5.


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var //цифровая маска
  vrPos, vrLength, vrSelStart: byte;
const
  I: byte = 1;
    //I+1 = количество знаков после запятой (в данном случае - 2 знака)
begin

  with Sender as TEdit do
  begin
    vrLength := Length(Text); //определяем длину текста
    vrPos := Pos(',', Text); //проверяем наличие запятой
    vrSelStart := SelStart; //определяем положение курсора
  end;

  case Key of

    '0'..'9':
      begin
        //проверяем положение курсора и количество знаков после запятой
        if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then
          Key := #0; //"погасить" клавишу
      end;
    ',', '.':
      begin
        //если запятая уже есть или запятую пытаются поставить перед
        //числом или никаких цифр в поле ввода еще нет
        if (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0) then
          Key := #0 //"погасить" клавишу
        else
          Key := #44; //всегда заменять точку на запятую
      end;
    #8: ; //позволить удаление знаков клавишей 'Back Space'
  else
    Key := #0; //"погасить" все остальные клавиши
  end;
end;





Похожие по теме исходники

Расширение компонента TEdit

Проверка числового ввода

Оптимальное кодирование информации




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте