Tengo un edit con el siguiente código en el evento OnKeyPress para que admita solo números decimales:
Código Delphi
[-]
if ( StrScan('0123456789.' + chr(7) + chr(8), Key) = nil ) then Key := #0;
if key = '.' then key := ',';
for i := 1 to length(EUno.Text) do
if ( copy(EUno.Text,i,1) = ',' ) and not ( StrScan(',', Key) = nil ) then Key := #0;
Esto me impide copiar y/o pegar en el edit, pero necesito poder hacerlo.
He pensado poner una condición algo así:
If (key = 'VK_KeyDeCtrl+V) or (key = 'VK_KeyDeCtrl+C) then
....controlar valor pegado
else
... control entrada solo números
¿ key de CTRL+V y de CTRl+C ?, o algún sitio donde pueda buscarlas.
Gracias.