Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ограничение на ввод в строки DBGrid

Dana © (2007-12-29 11:39:00)
С наступающим! Подскажите, как можно поставить ограничение на ввод в строки грида (например только латинские буквы), в свойствах как у других компонентов кеупресса нет, сам код я конечно знаю, только вот куда его писать?

Msguns (2007-12-29 20:55:00) [1]
OnColEnter,OnKeyPress

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

Правильный_Вася (2007-12-29 12:53:00) [3]
ничего там объявлять не надо
просто в этом событии делаешь проверку на наличие мусора
если есть, не даешь запостить запись (Abort) или вычищаешь мусор
если нет, все пропускаешь

Dana (2007-12-29 12:44:00) [4]
Сорри, поняла, в свойстве грида. Но как объявить кей?

Dana (2007-12-29 12:42:00) [5]
Датасет это свойство датасорса? или в свойстве тэйбла?

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

Правильный_Вася (2007-12-29 11:51:00) [7]
Datase.BeforePost
Abort;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »