Evento onKeyPress: if not(Key in['0'..'9', #8 , 'A'..'F' , 'a'..'f']) then begin Beep; Key := #0; end;
Evento OnKeyDown: if ssCTRL in Shift then begin Beep; Key := #0; end; -------Mensagem original------- De: Ricardo César Cardoso Data: 05/15/08 11:21:05 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Res: [delphi-br] Exceção de bloqueios de teclas Bom dia ! Em qual evento vc vai usar isso? Se for em OnKeyDown, Key é do tipo Word e vc vai ter um erro quando usar a comparação que vc usa. Obrigatoriamente vc vai ter que trabalhar com os valores ASC II dessas teclas ( 0-9, A-F e a-f ) Abraço, Ricardo. André Luis <[EMAIL PROTECTED]> escreveu: if not(Key in['0'..'9', #8 , A'..'F' , 'a'..'f']) then begin Beep; Key := #0; end; if ssCTRL in Shift then begin Beep; Key := #0; end; [As partes desta mensagem que não continham texto foram removidas] --------------------------------- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]