![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Компонент tEdit [D7]
set666 © (2011-07-12 01:49:00)Как сделать так что бы в компонент tEdit можно было ввводить только числа, то есть цифры и запятую ?
Dennis I. Komarov (2011-07-12 15:46:00) [1]проверять надо после, а не во время...
Sha (2011-07-12 12:38:00) [2]> set666
Некоторые еще длину ввода ограничивают.
Лечится переводом программиста в операторы на недельку-другую.
Gu (2011-07-12 11:46:00) [3]там же вроде в маскедит все это есть
Омлет (2011-07-12 11:17:00) [4]> Игорь Шевченко © (12.07.11 10:59) [7]
Согласен )
Игорь Шевченко (2011-07-12 10:59:00) [5]Омлет © (12.07.11 10:17) [5]
Давить за такой код
Smile (2011-07-12 10:21:00) [6]Лучше вместо
','- DecimalSeparator,
но это не решает проблему ввода более одного сепаратора, да и много других проблем ...
Омлет (2011-07-12 10:17:00) [7]
procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
Key := chr(integer(Key in ['0'..'9', ',']) * ord(Key));
end;
Anatoly Podgoretsky (2011-07-12 10:02:00) [8]> set666 (12.07.2011 01:49:00) [0]
Это не живое и тебя побьют
Германн (2011-07-12 03:00:00) [9]
> если оно мне неподходит то что делать ?
Key:=#0;
set666 (2011-07-12 02:39:00) [10]ну это понятно допустим что я знаю значение переменной key если оно мне неподходит то что делать ?
Германн (2011-07-12 02:26:00) [11]В OnKeyPress проверять какая клавиша нажата.