Hola Lepe, Lo Agrege Pero No Funciona
Hola Lepe, sabes que agregue tu codigo a mi forma pero
sige aceptando letras en la captura. mira este es mi codigo
procedure Tfcorte.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
const Numeros = ['0'..'9'];
begin
if not(chr(key) in numeros) and (key >30) then
key := 0; // que no escriba esa tecla
end;
no se que pasa pero sige aceptando entradas no numericas.
agradeceria muchisimo tu ayuda. Bye.
|