Delphi - QUE COMANDO SE UTILIZA..

 
Vista:

QUE COMANDO SE UTILIZA..

Publicado por loro (3 intervenciones) el 16/12/2004 17:29:05
hola tengo una consulta... como puedo hacer para cuando restringo la entrada de caracteres a los edit, ejeplo si coloco que entre solo letras abcdefghijklmñopqrstuvxxyz ya para poder borrar con la flecha que esta arriba de enter y poder dar espacio ya quye si preciono esas dos teclas me manda el mensaje que coloque yo para solo ingreso de letras..

espero averme explicado
al comando me refiero que si doy solamente nuemero coloca #(7)y #[8] y medeja hacer esas dos operaciones que quiero..
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:QUE COMANDO SE UTILIZA..

Publicado por Virum (484 intervenciones) el 16/12/2004 17:46:36
Hola:

Añade chr(7) y chr(8)

Por ejemplo así:

procedure TFFaltas.ELectivasKeyPress(Sender: TObject; var Key: Char);
begin
if ( StrScan('abcdefghijklmñopqrstuvxxyz'+chr(7)+Chr(8), Key) = nil ) then
begin
Key := #0;
end;
end;

Suerte.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE: no resulto lo que queria ..

Publicado por loro (3 intervenciones) el 16/12/2004 22:22:47
pero al hacer eso me surge un pequeño problema no me permite moverme con la barra espaciadora..
osea no me deja dejar es`pacios entre palabras-....

como soluciono eso porfavor...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE: no resulto lo que queria ..

Publicado por Dr Juzam (821 intervenciones) el 16/12/2004 22:47:32
Lo que tienes que hacer es añadir el código de la barra espaciadora, que creo que es el 32. Es decir, a la cadena de StrScan pones +chr(32).
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE: no resulto sigue fallando el comando

Publicado por loro (3 intervenciones) el 16/12/2004 23:00:48
no es no me deja ni complilar me dice que son incompatibles los tipos strin y integer.. comolo ago
gracias a todos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE: no resulto sigue fallando el comando

Publicado por Dr Juzam (821 intervenciones) el 16/12/2004 23:13:34
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
Cadena: String;
begin
Cadena:='abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZ';
if StrScan (PChar(Cadena+chr(8)+chr(20)+chr(32)), Key)=nil then
Key:=#0;
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:QUE COMANDO SE UTILIZA..

Publicado por Elena (330 intervenciones) el 17/12/2004 13:11:15
En en evento OnKeyPress del Edit:

if not (key in ['a'..'z','A'..'Z',#8, #32, #13]) then
begin
Key := #0;
Beep;
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar