Исправление DBEdit MaxLengthDelphi , Компоненты и Классы , TEditИсправление DBEdit MaxLength
Я, кажется, не могу получить свойство MaxLength, чтобы работать с компонентами TDBEdit. В TEdit это работает как положено, но при попытке задать максимальную длину текста в TDBEdit это не срабатывает, и я все еще могу набрать текст сверх установленного ограничения. По-моему, это является следствием этого кода в TDBEdit.DataChange (DBCTRLS.PAS):
т.к. иногда значение устанавливается на ноль... Похоже все будет работать, если вы измените строку
на
Для того, чтобы изменения вступили в силу, вам необходимо перекомпилировать ваш complib с измененным DBCTRLS.PAS, находящимся в пути lib. Если вы хотите использовать MaxLength с StringField, изменений необходимо сделать немного больше:
Или использовать что-то типа EditMask... Статья Исправление DBEdit MaxLength раздела Компоненты и Классы TEdit может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||||||||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |