Как сделать так, чтобы в компонент edit вводились цифры и аналогично с буквами?

[Askat]

(Как сделать так, чтобы в компонент edit вводились цифры и аналогично с буквами?)

Как сделать так, чтобы в компонент edit при нажати на цифр вводились только цифры, а буквы не вводились? и точно так же с буквами, вводим буквы цифры не вводились?

[Net]

На форуме уже были ответы и код. Видел только под цифры, но под буквы несложно сделать.

Все пишется в OnKeyPress, можно сделать общий обработчик для всех, а можно написать валидаторные функции, и вызывать для каждого эдита свою.

[Gorin]

C Помощью события OnKeyPress. нажатая клавиша содержится в переменной Key.
Например ввод только 1

if Key<> '1' then Key:=Chr(0);

[SERG1980]

Пример: Ввод только чисел
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin
 if (key='.')or(key=',')then key:=decimalseparator;//для ввода с десятыми
 if not (key in['0'..'9',decimalseparator,#8,#13]) then
 begin
  key:=#0;
  beep;
 end;

[@gent]

До боли тупой код, но я особо не вдумывался. Если вес проги не так напрягает, можно наложить 2 edit друг на друга и менять каждый. И меняя каждый раз edit при нажатии клавиши для выбора букв или цифр

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in ['0'..'9']) then Key:=#0;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in ['a'..'z']) and (key in ['A'..'Z']) and (key in ['а'..'я']) and (key in ['А'..'Я'])  then Key:=#0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 edit1.Visible:=true;
 edit2.Visible:=false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 edit2.Visible:=true;
 edit1.Visible:=false;
end;

Или я что не понял ?

[Квэнди]

Сообщение от @gent

До боли тупой код, но я особо не вдумывался. Если вес проги не так напрягает, можно наложить 2 edit друг на друга и менять каждый. И меняя каждый раз edit при нажатии клавиши для выбора букв или цифр

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in ['0'..'9']) then Key:=#0;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in ['a'..'z']) and (key in ['A'..'Z']) and (key in ['а'..'я']) and (key in ['А'..'Я'])  then Key:=#0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 edit1.Visible:=true;
 edit2.Visible:=false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 edit2.Visible:=true;
 edit1.Visible:=false;
end;

Или я что не понял ?

Бедному пользователю даже стереть ничего нельзя будет ? жаль его бедного...

[CronEtc]

Есчё пример для цифр:
На форму, акромя edit, скинь компонент со фкладки additional - ApplicationEvents и в событии OMessage этого компонента пиши следующее:

Handled:=form1.Edit1.Focused and (Msg.message=wm_Char) and (Msg.wParam>=48) and (Msg.wParam<=57);

теперь когда фокус перейдёт на твой edit он начнёт фильтровать буквы....Вот.