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

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

http://delphiworld.narod.ru/ DelphiWorld 6.0

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...