cuatrero

Es sencillo. Añade al evento Keypress el código siguiente. procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key in ['0' ..'9','.'] then else begin key := #0; end; end; Lo que hace es comprobar si la tecla pulsada esta en el...