E assim resolve o problema dele de poder usar CRTL+V e CRTL+C?
[]´s
Rodrigo O. Farias
----- Original Message -----
From: José Augusto S. de Oliveira
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, January 19, 2005 11:12 AM
Subject: Re: [delphi-br] Como anular teclar da melhor forma ???
//Crie essa função publica no seu sistema,
Function CriptCH(Letra:String):Boolean;stdcall;
Var AlfaValido: String;
Begin
AlfaValido := '0123456789;
if Pos(Letra,AlfaValido) = 0 then begin
MessageDlg('Letra Inválida !',mtError,[mbok],0);
result := False
end
else
result := True;
end;
//Depois e so chama-la no DBEdit, ou Edit,(dentro do evento On Key Press) ou
onde vc quiser dessa forma :
if not CriptCH(key) then key := #0;
Atenciosamente,
José Augusto S. de Oliveira.
[EMAIL PROTECTED]
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
