MaxLength TEdit не работает на Android с DELPHI XE7 (обновление 1)

Кто-нибудь знает, почему не работает MaxLength TEdit на Android с DELPHI XE7 (обновление 1)?

Есть ли какое-нибудь решение для преодоления этой проблемы?


android delphi maxlength firemonkey delphi-xe7
person Community    schedule 11.12.2014    source источник
comment
Если вы установите его во время выполнения при создании формы, Edit1.MaxLength := xxx, тогда он будет работать? Обратите внимание, что это свойство влияет только на ввод с клавиатуры.   -  person LU RD    schedule 11.12.2014
comment
Я пробую это во время выполнения, но это не работает. :(   -  person    schedule 11.12.2014
comment
Та же проблема с TMemo   -  person pudnivec74    schedule 11.12.2014

Ответы (2)


arrow_upward
6
arrow_downward

В DELPHI XE7 update 1 возникла проблема (см. мой отчет QC 129171)

Вы можете преодолеть это с помощью этого небольшого кода (пример для MaxLength = 5):

procedure TForm1.Edit1Typing(Sender: TObject);
begin
  if Length(Edit1.Text) > 5 then
    Edit1.Text:= Edit1.Text.Substring(0, 5);
end;
person pudnivec74    schedule 11.12.2014

arrow_upward
0
arrow_downward

Этот баг я тоже зарегистрировал. К счастью, ошибка была исправлена ​​в следующей версии.

person Community    schedule 01.11.2015