Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 16-06-2008
ale_metall ale_metall is offline
Miembro
 
Registrado: sep 2007
Posts: 53
Poder: 17
ale_metall Va por buen camino
y de que forma podria usar esos codigos, necesito bloquear todo lo que se pueda tipear, pero que no corresponda a letras o numeros, por ejemplo en un ABM de carga de clientes, en campos que solo ingreso numeros y letras.. como bloqueo todos los demas simbolos??
Responder Con Cita
  #2  
Antiguo 17-06-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 22
Caro Va por buen camino
Hola ale_metall, para controlar debes utilizar los eventos OnKeyPress, OnKeyDown y OnKeyUp, ejemplo para controlar un edit.

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not(key in [#97..#122,'ñ','A'..'Z','Ñ','0'..'9',#32,#8]) then
  key := #0;
end;

Si te fijas puedes hacerlo #97..#122 que te indica todas minusculas o también podrias haberlo hecho asi 'a'..'z', en el codigo de arriba, permitimos que se introduzca letras(mayusculas o minusculas), números, el espacio #32 y el borrado #8.

Si quieres usar los Virtual Key Codes (vk_Up->fecha arriba, vk_left->fecha izquierda, vk_delete, vk_escape->escape, vk_F1....), solo funcionan en los eventos OnKeyDown y OnKeyUp, un ejemplo digamos que no queremos que se borre en nuestro edit.

Código Delphi [-]
 
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key = vk_delete then
  key := 0;
end;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita
  #3  
Antiguo 17-06-2008
ale_metall ale_metall is offline
Miembro
 
Registrado: sep 2007
Posts: 53
Poder: 17
ale_metall Va por buen camino
uhh, gracias caro.. y a los demas q aportaron soluciones a mi problema.. lo voy a poner en practica!!

un saludo grande.. y de nuevo gracias!
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Listado sql CRIS SQL 7 06-08-2007 14:08:14
cambiar teclas de cursor up down por o tras teclas en un TDBGrid lococaceres Conexión con bases de datos 1 13-07-2007 07:01:40
listado alfabetico mauilore Firebird e Interbase 5 31-08-2006 21:46:56
Listado de PC´s Sergio J. Varios 8 03-01-2005 10:41:11


La franja horaria es GMT +2. Ahora son las 06:39:20.


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
Copyright 1996-2007 Club Delphi