как разрешить пользователю вводить в Edit только цифры и запятую

← →
_Dimitry © (2003-06-27 10:18) [0]

Помогите пожалуйста - сто раз делал а вот с утра переклинило
как разрешить юзеру вводить в едит только 0123456789,
на OnChange вешаю обработчик в котором смотрю что в строке
так OnChange сам себя и вызывает :((

← →
Bel © (2003-06-27 10:23) [1]

Обрабатывай OnKeyPress.

← →
Lord Warlock © (2003-06-27 10:46) [2]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ["0".."9",DecimalSeparator,#8]) then
Key:=#0;
end;

← →
Александр из Минска © (2003-06-27 12:34) [3]

> Lord Warlock

А при вставке текста из буфера??? Это же не KeyPress! Если вставить "123qwe123"?

← →
ghg © (2003-06-27 13:16) [4]

в кладовке был edit
который все это как раз реализует,

← →
ghg © (2003-06-27 13:23) [5]

не в кладовке нет
если надо стучи в асю и в мыло
пришлю исходник (не мой, где0-то взял не помню где, но работает)

← →
Song © (2003-06-27 15:23) [6]

2Александр из Минска © (27.06.03 12:34)
>>А при вставке текста из буфера??? Это же не KeyPress! Если вставить "123qwe123"?

TEdit.onChange

← →
McSimm2 (2003-06-27 15:47) [7]

проверять onchange

а не KeyDown?

>Lord Warlock © (27.06.03 10:46)

если разрешить DecimalSeparator, то прийдется отслеживать, что б не получилось что-то вида: "46,456,23,1245,,,,,,678910"

как разрешить пользователю вводить в Edit только цифры и запятую Найти похожие ветки