Ограничение на ввод в строки 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) или вычищаешь мусор
если нет, все пропускаешь

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

OnColEnter,OnKeyPress

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