SoloCodigo
Programación General => Delphi => Mensaje iniciado por: MPSistemas en Domingo 7 de Noviembre de 2004, 02:18
-
Hola ...les queria preguntar si alguien sabe como se hace para restringir en un edit que se ingresen solo numeros y la coma...me seria de gran ayuda..gracias!!! :devil:
-
En el evento KeyPress ...
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not ( StrScan('0123456789,',Key) <> nil ) or ( Key = Char(VK_BACK) ) then
Key := #0;
end;
y con StrScan también puede añadir otras teclas ....
-
Gracias por el dato Garcez...lo probare y les aviso si es que me funciona bien!! :devil:
-
Hola!
Por si te interesa, existen unas librerías gratuitas, las Rx, que tienen un componente CurruncyEdit, que hace exactamente eso, además de otras cosas. Está librería incluye componentes muy útiles. Te las puedes descargar aqui: RxLib (http://www.clubdevelopers.com/delphi/compo.php)
Un saludo! ;)
-
Holaalguien me puede explicar que hace el codigo de garcez.
En especial con Key:=#0;
-
:hola:
Basicamente el código de Garcez, deja solo escribir en el edit numeros.
El Key:= #0 lo que hace es comerse la tecla, es decir, sino es un número pues no escribe nada.
Un saludo.
-
Si lo entiende más fácil así... "En el evento KeyPress"
Key := chr(0); //No imprime ningún caracter.
ó
Key := 'a'; //cada que presione una tecla... la cambia por el caracter 'a'
En el código anterior:
Si no presiona ninguno de los caracteres de StrScan() ni la tecla BackSpace entonces no imprime ningún caracter en el Edit...