Советы по Delphi

         

Ограничение длины поля TStringGrid


Вероятно, это не очень эффективное решение, но оно будет работать: поместите следующий код в обработчик события onKeyPress:

    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;

[001577]



Содержание  Назад  Вперед







Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий