Текущий архив: 2004.11.07;
Скачать: CL | DM;
Вниз
Вопрос по компоненту EDIT Найти похожие ветки
← →
LAndreyV (2004-10-24 17:43) [0]Подскажите, как сделать, чтобы в edit1.text можно было вводить только числа и только положительные??
← →
begin...end © (2004-10-24 17:44) [1]1. TMaskEdit
2. TEdit.OnChange
← →
LAndreyV (2004-10-24 17:47) [2]function edit1.onChange(...)
begin
TmaskEdit ?????
end;
не пойму...не мог бы показать на маленьком примере??
← →
antonn © (2004-10-24 17:48) [3]
> можно было вводить только числа и только положительные??
ограничить ввод только чисел:
procedure TForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if NOT (Key in ["0".."9", #8, #13]) then Key := #0;
end;
← →
LAndreyV (2004-10-24 17:50) [4]спасибо
← →
GanibalLector © (2004-10-24 17:52) [5]
procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.text<>"" then
try
strtoint(edit1.text);
old1:=edit1.text;
except
edit1.text:=old1;
edit1.SelStart:=length(edit1.text);
edit1.seltext:="";end;
end;
← →
GanibalLector © (2004-10-24 17:53) [6]2 antonn
Не,не катит. Paste будет срабатывать и вставлять все что хочешь...даже буквы
← →
antonn © (2004-10-24 17:54) [7]
> Paste будет срабатывать и вставлять все что хочешь...даже
> буквы
> можно было вводить
Вроде такая задача ставилась.
← →
GanibalLector © (2004-10-24 17:57) [8]2 antonn
Прочти внимательно
<цитата>можно было вводить только числа </цитата>
← →
antonn © (2004-10-24 17:59) [9]
> GanibalLector © (24.10.04 17:57) [8]
Но ведь вводить!
← →
GanibalLector © (2004-10-24 18:01) [10]2 antonn
Но ведь ТОЛЬКО
Ладно,заканчиваем офф-топ.Пусть автор поста сам выбирает то,что ему нравиться.
← →
antonn © (2004-10-24 18:04) [11]И все-таки только вводить :)
Страницы: 1 вся ветка
Текущий архив: 2004.11.07;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.066 c
