Скачать: CL | DM;

Ограничение на ввод в строки DBGrid   Найти похожие ветки 

← →
Dana ©   (2007-12-29 11:39) [0]

С наступающим! Подскажите, как можно поставить ограничение на ввод в строки грида (например только латинские буквы), в свойствах как у других компонентов кеупресса нет, сам код я конечно знаю, только вот куда его писать?

---

← →
Правильный_Вася   (2007-12-29 11:51) [1]

Datase.BeforePost
Abort;

---

← →
Dana ©   (2007-12-29 12:38) [2]

if not  (Key in ["а".."я","-"," ",#8,#13,#27]) then
     begin
        MessageDlg(Некорректный ввод!!!", mtInformation,
        [mbOk], 0);
        Key:=#0;
     end;
В бефорпост не объявляется Key! Можно подробнее, я наверное не допоняла...

---

← →
Dana ©   (2007-12-29 12:42) [3]

Датасет это свойство датасорса? или в свойстве тэйбла?

---

← →
Dana ©   (2007-12-29 12:44) [4]

Сорри, поняла, в свойстве грида. Но как объявить кей?

---

← →
Правильный_Вася   (2007-12-29 12:53) [5]

ничего там объявлять не надо
просто в этом событии делаешь проверку на наличие мусора
если есть, не даешь запостить запись (Abort) или вычищаешь мусор
если нет, все пропускаешь

---

← →
Dana ©   (2007-12-29 13:00) [6]

Мне надо, чтоб пропускал буквы, цифры, Enter и Tab, вот как я писала,
if not  (Key in ["а".."я","-"," ",#8,#13,#27,"1".."9","0"]) then
     begin
        MessageDlg("Некорректный ввод!!!", mtInformation,
        [mbOk], 0);
        Key:=#0;
     end;
Нашла там кеупресс, туда и написала, так будет корректно?
а как проверка на мусор?

---

← →
Msguns ©   (2007-12-29 20:55) [7]

OnColEnter,OnKeyPress

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c