Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Tedit минимальная длина

Автор: Cron 16.12.2007, 11:42

В программе используется поле tEdit, в которое вводятся только цифры, как установить минимальную длину поля (MinLength), чтобы до ввода нужного количества знаков кнопка была не задействована, а после ввода она ожила, тоесть значение Enabled станет true?

PS: Существуют ли альтернативные компоненты, замена стандартному tedit в которых по умолчанию выставлются значения MaxLength и MinLength?

Автор: Alexeis 16.12.2007, 14:40

Cron, есть событие OnChange нем можно проверять длину текста в едите.
Можно попробовать воспользоваться компонентом TMaskEdit

Автор: Cron 16.12.2007, 14:59

Цитата(Alexeis @ 16.12.2007, 14:40)

есть событие OnChange нем можно проверять длину текста в едите.

Да я так и собирался сделать, для меня трудность состоит в самой проверке количества, тоесть не знаю каким образом это делается smile

Автор: Exai1e 16.12.2007, 15:21

Код


procedure TForm3.Edit1Change(Sender: TObject);
begin
  if Length(Edit1.Text) = 3 then
    Button1.Enabled := true
  else
    Button1.Enabled := false;
end;

Автор: VICTAR 16.12.2007, 15:30

Exai1e, а проще? =)

Код


procedure TForm3.Edit1Change(Sender: TObject);
begin
  Button1.Enabled := Length(Edit1.Text) = 3;
end;

Автор: Cron 16.12.2007, 15:38

Всем огромное спасибо за помощь smile

Автор: Exai1e 16.12.2007, 15:40

VICTAR, ну можно и так smile

главное что работает ;)
Cron, поставь галочку что вопрос решен smile