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