Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.021 c