Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   edit solo letras (https://www.clubdelphi.com/foros/showthread.php?t=66649)

bothy 05-03-2010 00:00:30

edit solo letras
 
Como le hago para que mi caja de texto solo permitas los caracteres que yo quiera ...


o tambien que acepte puros numeros enteros..

BrunoBsso 05-03-2010 01:01:10

En D2010 hay una propiedad de los TEdit que se llama NumbersOnly, obviamente acepta solo números y caracteres no imprimibles (#0 al #32).
Si lo querés hacer vos mismo, tendrías que hacer algo como:
Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const
  CARAC_NO_IMPRIMIBLES = [#0..#32]; //Podrías sacar el #32 que es la barra espaciadora
  NUMEROS = ['0'..'9']; //Acá hacé un conjunto de los caracteres que quieras permitir
  CARAC_HABILITADOS = CARAC_NO_IMPRIMIBLES+NUMEROS; //Este conjunto es la unión de los 2 anteriores, se podría hacer en uno solo como [#0..#32,'0'..'9'] pero lo hice así para que se entienda
begin
  if NOT(Key IN CARAC_HABILITADOS) then //Si la tecla pulsada (key) no está en el conjunto de los permitidos
    Key:=#0; //Hago que esa tecla valga nada (null)
end;
Con eso habilitás solamente todos los números.
Claro que podés acomodarlo a tu estilo.
Saludos!!!

bothy 05-03-2010 05:12:07

Gracias mi amigo .. me sirvio de mucho ...

BrunoBsso 05-03-2010 06:25:44

Cita:

Empezado por bothy (Mensaje 355707)
Gracias mi amigo .. me sirvio de mucho ...

De nada che, el foro es para eso; compartir y aprender. No es sólo para criticar o disminuir a los demás, yo vengo para ayudar.
Saludos!!!!!!!!!!


La franja horaria es GMT +2. Ahora son las 15:12:56.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi