Cita:
Empezado por tuflotas
eso no lo se hacer :S
|
Ej.
Código Delphi
[-]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
(Sender as TEdit).ReadOnly := not (Key in ['0'..'9']);
end;
Revisar tambien Ctrl+V y popup.
Ambos temas han sido ampliamente tratados.
Saludos