Não sei se a soluçõa é bem por ai, já que não tenho o Delphi aqui para testar, mas acho que nesse caso, vc tem que observar o evento OnKeyDown, se não me engano, pois ele tem uma maneira de verificar se foi pressionada uma tecla como <CTRL> ou <SHIFT> junto.
Dá uma pesquisada que provavelmente vai achar a solução prontinha. Atte, Ricardo. Jorge Ericsson <[EMAIL PROTECTED]> escreveu: Tente if not(Key in['0'..'9', #8 , 'A','a' , 'F','f']) then begin Beep; Key := #0; end; 2008/5/12 Delphi Sql <[EMAIL PROTECTED]>: > > > ----- Mensagem original ---- > De: Delphi Sql <[EMAIL PROTECTED] <man.delphi%40yahoo.com.br>> > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> > Enviadas: Sexta-feira, 9 de Maio de 2008 16:35:53 > Assunto: [delphi-br] Exceção de bloqueios de teclas > > > Boa Tarde > > é o seguinte em um edit coloquei o seguinte codigo no evento OnKeyPress > > if not(Key in['0'..'9', #8 , 'A'..'F' , 'a'...'f']) > then > begin > Beep; > Key := #0; > end; > > ou seja se o usuario nao digitar este caracteres ele não aceita .. entao > só que bloqueou tbem o "Ctrl + c" e o "Crtl + v" > como faria pra libera-los > > Icaro Ferreira > > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para > armazenamento! > http://br.mail. yahoo.com/ > > [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! > http://br.mail.yahoo.com/ > > [As partes desta mensagem que não continham texto foram removidas] > > > -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [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]
