Código Delphi [-] procedure TForm1.Edit10KeyPress(Sender: TObject; var Key: Char); var tx:char; begin tx:=char(key); if tx in ['0'..'9'] then key:=#0; end;
procedure TForm1.Edit10KeyPress(Sender: TObject; var Key: Char); var tx:char; begin tx:=char(key); if tx in ['0'..'9'] then key:=#0; end;