Вопрос по компоненту 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
Прочти внимательно
<цитата>можно было вводить только числа </цитата>

2 antonn
Но ведь ТОЛЬКО

Ладно,заканчиваем офф-топ.Пусть автор поста сам выбирает то,что ему нравиться.

И все-таки только вводить :)

Вопрос по компоненту EDIT Найти похожие ветки