Código Delphi [-] procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in [#8, ',' ,'0'..'9']) then begin Key:= #0; MessageBeep(MB_ICONERROR); end; end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in [#8, ',' ,'0'..'9']) then begin Key:= #0; MessageBeep(MB_ICONERROR); end; end;