| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопрос по компоненту EDIT [D5, WinXP]
LAndreyV © (2004-10-24 17:43:00)Подскажите, как сделать, чтобы в edit1.textможно было вводить только числа и только положительные??
antonn (2004-10-24 18:04:00) [1]И все-таки только вводить:)
GanibalLector (2004-10-24 18:01:00) [2]2 antonn
Но ведь ТОЛЬКО
Ладно,заканчиваем офф-топ.Пусть автор поста сам выбирает то,что ему нравиться.
antonn (2004-10-24 17:59:00) [3]
> GanibalLector © (24.10.04 17:57) [8]
Но ведь вводить!
GanibalLector (2004-10-24 17:57:00) [4]2 antonn
Прочти внимательно
<цитата>можно было вводить толькочисла </цитата>
antonn (2004-10-24 17:54:00) [5]
> Paste будет срабатывать и вставлять все что хочешь...даже
> буквы
> можно было вводить
Вроде такая задача ставилась.
GanibalLector (2004-10-24 17:53:00) [6]2 antonn
Не,не катит. Paste будет срабатывать и вставлять все что хочешь...даже буквы
GanibalLector (2004-10-24 17:52:00) [7]
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;
LAndreyV (2004-10-24 17:50:00) [8]спасибо
antonn (2004-10-24 17:48:00) [9]
> можно было вводить только числа и только положительные??
ограничить ввод только чисел:
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:47:00) [10]function edit1.onChange(...)
begin
TmaskEdit ?????
end;
не пойму...не мог бы показать на маленьком примере??
begin...end (2004-10-24 17:44:00) [11]1. TMaskEdit
2. TEdit.OnChange
| |
