Validar un TEdit

[gabrielkc]

Empezado por Jose Roman

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['A'..'Z','a'..'z']) then key:=#0;
end;

pequeña correción;

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  If not (Key in ['A'..'Z','a'..'z',#8,#13]) then key:=#0; //para que permitas el BackSpace y el Enter
end;

[darcan01]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['A'..'Z','a'..'z',#8,#13,#32 ]) then key:=#0; //para que permitas el BackSpace y el Enter y el espaciador
end;