Вероятно, это не очень эффективное решение, но оно будет работать: поместите следующий код в обработчик события onKeyPress:
|
Code: |
|
if key <> #8 then begin {допускаем backspace/Del} len := length(grid.cells[grid.col, grid.row]); if len >= ваша желаемая максимальная длина then begin messageBeep (0); key := #0; end; end; |
После получения вышеуказанным кодом строки s проверяется условие и,
if Length(s) > maxlengthoffield then exit;
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!