Ограничение длины поля TStringGrid
Материал из DRKB
Ограничение длины поля 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;
Source: http://delphiworld.narod.ru/
ID: 01098