Исправление значения ячейки в StringGrid

← →
Hamster © (2005-09-24 22:18) [0]

Здравствуйте. В обработчике события stringgrid OnSetEditText пишу следующий код:

len:=Length(Value); if (ACol=1) and (len>0) and not (Value[len] in ["0".."9"]) then StringGrid1.Cells[ACol,ARow]:=Copy(Value,1,len-1);

При вводе недопустимого символа выделяется все значение ячейки, а мне этого не надо. Как от этого избавиться, т.е. чтобы просто последний введенный символ убирался?

← →
PAVIA © (2005-09-24 22:40) [1]

Пиши в OnKeyPress
if not(Key in ["0".."9"]) then Key=#0;
Если не цифра то присвоить, код клавиши 0.

← →
Hamster © (2005-09-24 22:47) [2]

Мне надо чтобы исправлялось только значение во второй колонке, т.е. надо что-то типа StringGrid1.ColSelected, а такого я что-то не нашел.

← →
PAVIA © (2005-09-24 22:58) [3]

Тогда
if Not(Key in ["0".."9"])or (StringGrid1.Col<>2) then Key:=#0;
Пишеться без Selected.:)

Ой...Не заметил...:)
Спасибо!

Исправление значения ячейки в StringGrid Найти похожие ветки