скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Ограничение длины поля 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;






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook