Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.16;
Скачать: CL | DM;

Вниз

Исправление значения ячейки в 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.05 c
3-1125497727
Dmitrich
2005-08-31 18:15
2005.10.16
Почему БД (interBase 6.0) не работает с диска?


1-1127885181
C00ler
2005-09-28 09:26
2005.10.16
Вывод текста разными стилями из потока


2-1126054472
DimonS
2005-09-07 04:54
2005.10.16
Вопрос по SQL + DBGrid


9-1117733503
Валера
2005-06-02 21:31
2005.10.16
Взрыв на OpenGL


14-1127282930
DVM
2005-09-21 10:08
2005.10.16
Система для защищенного обмена документами в сети организации