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

Previous  Top  Next

    
 

Вероятно, это не очень эффективное решение, но оно будет работать: поместите следующий код в обработчик события onKeyPress:

 

 

Code:

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;

 

©Drkb::01098

http://delphiworld.narod.ru/

DelphiWorld 6.0