vroa74
10-09-2007, 17:03:15
Buen día:
valide varios campos dentro de un programita que estoy haciendo ahora me topo que no puedo copiar y pegar datos.
con esta funcion valide, la oncontre en este foro va en OnKeyPress
function TForm1.PresskeyAlf(Key: Char):char;
begin
if ( StrScan('abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZáéíóúÁÉÍÓÚ -',Key) <> nil ) or
( Key = Char(VK_BACK) ) then
begin // procedimiento
end else
Key := #0;
result:=Key;
end;// fin del procesiminento
Siento que me hace falta algo ya sea en el mismo evento o quizas en OnKeyDown alguien me puede ayuda con el problema.
----------------------------------------------------------------------------------------------------------------------------
He buscado en el foro y no he encontrado nada que de solucion a mi problema.
tengo campos tedit, tdbedit, tmemo, loas cuales estan validados y hasta el momento no encuntro como poder hacer que acepten el copiar pegar y cortar.
Porfavor ayuda.
sigo intentando y probado mas metodos.
valide varios campos dentro de un programita que estoy haciendo ahora me topo que no puedo copiar y pegar datos.
con esta funcion valide, la oncontre en este foro va en OnKeyPress
function TForm1.PresskeyAlf(Key: Char):char;
begin
if ( StrScan('abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑOPQRSTUVWXYZáéíóúÁÉÍÓÚ -',Key) <> nil ) or
( Key = Char(VK_BACK) ) then
begin // procedimiento
end else
Key := #0;
result:=Key;
end;// fin del procesiminento
Siento que me hace falta algo ya sea en el mismo evento o quizas en OnKeyDown alguien me puede ayuda con el problema.
----------------------------------------------------------------------------------------------------------------------------
He buscado en el foro y no he encontrado nada que de solucion a mi problema.
tengo campos tedit, tdbedit, tmemo, loas cuales estan validados y hasta el momento no encuntro como poder hacer que acepten el copiar pegar y cortar.
Porfavor ayuda.
sigo intentando y probado mas metodos.