Re: [delphi-br] Como anular teclar da melhor forma ???

Thu, 20 Jan 2005 03:47:27 -0800 


//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]
 
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

Responder a