Отменить нажатую клавишу Edit-е

← →
off © (2003-05-07 16:26) [0]

Возникла необходимость ограничить операторов при вводе текста для поиска по БД. Определить какая клавиша была нажата просто элементарно,а вот как сделать чтобы при недопустимом значении текст в Edit не вводился?

← →
Lexer © (2003-05-07 16:29) [1]

Отлавливаешь нажатие клавиши, проверяешь, при недопустимом значении присваиваешь key := 0

← →
off © (2003-05-07 16:31) [2]

> Lexer © (07.05.03 16:29)
> Отлавливаешь нажатие клавиши, проверяешь, при недопустимом
> значении присваиваешь key := 0

Пробовал буквы все равно печатает

← →
Lexer © (2003-05-07 16:33) [3]

кинь-ка кусочек кода, все должно работать!

← →
off © (2003-05-07 16:36) [4]

Ну например в OnKeyPress пишу if key<100 then key:=0;

← →
Lexer © (2003-05-07 16:37) [5]

Попробуй OnKeyDown

← →
off © (2003-05-07 16:38) [6]

Тьфу, нагнал не в OnKeyPres, а OnKeyDown

← →
Lexer © (2003-05-07 16:39) [7]

? у меня все работает

← →
off © (2003-05-07 16:40) [8]

В OnKeyPress такой код и работать-то не будет

← →
off © (2003-05-07 16:42) [9]

Может я что-то путаю? Но при таком коде он не должен печатать буквы ABC и т.д.

← →
off © (2003-05-07 16:45) [10]

???

По моему событие OnKeyDown лучше использовать для запрета нажатия функциональных и вспомогательных клавиш.

Для запрета букв лучше всего использовать:

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char); begin if key in ["A".."Z", "a".."z", "А".."Я", "а".."я"] then key:=#0; end;

Правда цифры все равно напечатаются :).

А если продуманный пользователь возмет и вставит из буфера обмена какой ни будь текст. Вы что будете запрещять использывать еще и буфер обмена?
Мой вам совет, после нажати кнопки "поиск" проверяйте верный ли текст в поле редактирования, если нет, то ругайтесь "недопустимое зачение".

TMaskEdit
и будет вам счастье.

> Proton © (07.05.03 18:20)
> А если продуманный пользователь возмет и вставит из буфера
> обмена какой ни будь текст

А я и не собирался бороться с продуманными пользователями (вредителями),я лишь хотел помочь невнимательным операторам.
Да и вообще с вопросом на форуме я можно сказать поторопился, для нахождения правильного ответа всего то понадобилось наконец-то пообедать и немного отдохнуть.
После чего я пришел примерно к такому решению:
в OnKeyPress пишу if key>#0 then key:=#0;
Спасибо Lexer, Proton, pusrg, VAleksey!

Отменить нажатую клавишу Edit-е Найти похожие ветки