[delpi12]

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

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

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

Код:

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

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

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

[delpi12]

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

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

Код:

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

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

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

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

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

OnKeyPress твоих Edit-ов.

[Bargest]

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

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

[Uniq!]

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

Код:

if not Key in

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

[delpi12]

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

Код:

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

Код:

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-ах ввелис толка цифры

Код:

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;