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

Delphi , Компоненты и Классы , TStringGrid и TDrawGrid

Вероятно, это не очень эффективное решение, но оно будет работать: поместите следующий код в обработчик события 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;

Статья Ограничение длины поля TStringGrid раздела Компоненты и Классы TStringGrid и TDrawGrid может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: TStringGrid и TDrawGrid ::