[delpi12]

При нажимание на кнопку создаются новые Edit ы , как можна сделать чтобы в этих Edit можна было ввести толка Цифры а не буквы

[M.A.D.M.A.N.]

На OnKeyPress фильтруешь цифры

Код:

1	if not (key in ['0'..'9']) then ...

На OnExit проверяешь наличие других цифр при вставке.

Это если совсем просто.

[delpi12]

Сообщение от M.A.D.M.A.N.

На OnKeyPress фильтруешь цифры

Код:

На OnExit проверяешь наличие других цифр при вставке.

Это если совсем просто.

нет у меня при нажимания на кнопку создаются новые Edit-ы в форме , я хочу что в этих Edit-ах ввелис толка цифры

[M.A.D.M.A.N.]

OnKeyPress твоих Edit-ов.

[Bargest]

чтобы в этих Edit можна было ввести толка Цифры а не буквы

Есть же флаг - NumbersOnly.

[Uniq!]

Забудьте уже наконец про

Код:

1	if not Key in

будущее наступило
CharInSet

[delpi12]

у меня код такой при нажимание создаются новые Edit

Код:

1 2 3 4 5 6 7 8 9

edit[i] := TEdit.Create(Form1); edit[i].Parent := Form1; edit[i].Left :=25; edit[i].Top :=30*i;//random(150); edit[i].Width := 130; edit[i].Height := 25; edit[i].Text := '0'; edit[i].Name := 'Edit'+IntToStr(i+1); i := i+1;

MAD: пользуемся тегами!

как сделать чтобы в этих edit-ах ввелис толка цифры

[M.A.D.M.A.N.]

Сообщение от delpi12

у меня код такой при нажимание создаются новые Edit

Код:

MAD: пользуемся тегами!

как сделать чтобы в этих edit-ах ввелис толка цифры

Код:

1 2 3 4 5 6 7 8 9 10

edit[i] := TEdit.Create(Form1); edit[i].Parent := Form1; edit[i].Left :=25; edit[i].Top :=30*i;//random(150); edit[i].Width := 130; edit[i].Height := 25; edit[i].Text := '0'; edit[i].Name := 'Edit'+IntToStr(i+1); edit[i].NumbersOnly := True; i := i+1;