Форум: "Основная";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Вниз

Исправление значения ячейки в 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.:)

---

← →
Hamster ©   (2005-09-24 23:02) [4]

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

---

← →
Германн ©   (2005-09-25 01:23) [5]

2 PAVIA ©   (24.09.05 22:58) [3]
Вот ьолько StringGrid1.Col<>2 противоречит условию. :(
У автора же "if (ACol=1)".

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.04 c