VPF::Вопрос о MaskEdit - Форум программистов

demm

Дата 25.6.2008, 14:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 12.7.2007

Репутация: нет
Всего: нет

Как ввести большее количество символов в маску чем задано?

К примеру, есть маска '/A/DAAA;1;*',
отображается она соответственно 'AD***',
надо чтоб можно было ввести до 20 символов, но не меньше пяти и не отображать в маску лишние звездочки,
Существует ли возможность создать такую маску?

morpheyushka

Дата 25.6.2008, 15:45 (ссылка)

(нет голосов)

Загрузка ...

Зеленый человек

Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

Репутация: 2
Всего: 8

Ну максимальное количество символов можно задать свойством MaxLength в инспекторе объектов. Минимальное количество символов в любом случае будешь сам проверять...но это не так уж и сложно))
А по поводу звездочек и двух символов - поиграйся с этим smile

--------------------

Спасибо делается вот так!!!

demm

Дата 25.6.2008, 16:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 12.7.2007

Репутация: нет
Всего: нет

При установленной маске, свойство MaxLength принимает значение длины маски и ни символом больше, ни символом меньше (если я не прав, то поправьте меня).

Если я хочу вводить по маске 20 символов и не меньше пяти, то маска будет выглядеть вот так:
'!/A/DAAAAAAAAAAAAAAAAAAAA;1;*' минимальное количество символов проверять вручную,
но в МаскЭдите будет выглядеть ужасно (AD********************)

THandle

Дата 26.6.2008, 00:36 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Что то такое + сокращение маски...

Код



procedure TForm1.MaskEdit1Change(Sender: TObject);
var
  s : string;
begin
  if ((MaskEdit1.SelStart = MaskEdit1.MaxLength) and (MaskEdit1.MaxLength <= 20)) then
    begin
      S := MaskEdit1.EditMask;
      Insert('A', s, pos(';', s));
      MaskEdit1.EditMask := s;
    end;
end;

demm

Дата 26.6.2008, 15:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 12.7.2007

Репутация: нет
Всего: нет

Спасибо за помощь, но так придется ловить еще на нажатие кнопки delete и бэкспейс, чтоб лишние звездочки удалять если по ошибке будут введены лишние символы. Вообщем временно отказался я от этой идеи.
Вопрос закрыт.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »