Código Delphi [-] procedure TForm1.EDit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9','.',#8]) then begin key:=#0; showmessage('Por favor introduzca numeros') end end;
procedure TForm1.EDit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9','.',#8]) then begin key:=#0; showmessage('Por favor introduzca numeros') end end;