Ограничение длины поля TStringGrid
Falk0ner, вс, 06/07/2008 - 15:34.
Ограничение длины поля 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;
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
Отправить комментарий