Re: [delphi-br] Re: Edit soh aceitar numeros

Thu, 29 Dec 2005 07:13:09 -0800 

fica assim
   
  procedure TForm1.Edit1KeyPress(Sender: TObject;
  var Key: Char);
begin
  // 8 é o backspace e o 13 é enter 
    If Not (Key in ['0'..'9','.','-',Chr(8),Chr(13)]) Then 
      Key:=#0;
end;
  

Alfredo Brandes <[EMAIL PROTECTED]> escreveu:
  ok, mas e qto ao backspace e o Enter???
eu quero q eles funcionem tbm...

----- Original Message ----- 
From: "Kerchenn Elteque" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, December 27, 2005 1:33 PM
Subject: [delphi-br] Re: Edit soh aceitar numeros


Pode ser assim:
no evento onkeypress
  if Not (Key in ['0'..'9','.','-']) Then Key := #0;

--- Em delphi-br@yahoogrupos.com.br, "Alfredo Brandes"
<[EMAIL PROTECTED]> escreveu
>
> ola listra
>
> eu gostaria de saber como eu posso fazer com que um Edit soh aceite
numeros
> e ignore outros caracteres que sejam digitados no seu interior...
>
> tem como fazer isso?
> agradeço
>
> Alfredo
>






-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>



Links do Yahoo! Grupos









-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>





        Yahoo! Grupos, um serviço oferecido por:            PUBLICIDADE
    var lrec_target="_blank";var lrec_URL=new Array();  
lrec_URL[1]="http://br.rd.yahoo.com/SIG=12fdvgdin/M=387526.7688413.8561453.1588051/D=brclubs/S=2137111264:HM/Y=BR/EXP=1135736706/A=3195639/R=0/id=flashurl/SIG=16dlpmvpj/*http://landingstrip.dell.com/landingstrip/ls.asp?CID=9985&LID=286702&DGC=BA&DGStor=DHS&DGSite=Yahoo&Conum=BR&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3Dbr%26l%3Dpt%26s%3Ddhs";;
  var 
lrec_flashfile="http://br.i1.yimg.com/br.yimg.com/i/br/ads6/1222_lrec_segunda_y_dic9_pe_producto.swf?clickTAG=javascript:LRECopenWindow(1)";
  var 
lrec_altURL="http://br.rd.yahoo.com/SIG=12fdvgdin/M=387526.7688413.8561453.1588051/D=brclubs/S=2137111264:HM/Y=BR/EXP=1135736706/A=3195639/R=1/id=altimg/SIG=16dlpmvpj/*http://landingstrip.dell.com/landingstrip/ls.asp?CID=9985&LID=286702&DGC=BA&DGStor=DHS&DGSite=Yahoo&Conum=BR&DURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3Dbr%26l%3Dpt%26s%3Ddhs";;
  var
 
lrec_altimg="http://br.i1.yimg.com/br.yimg.com/i/br/ads6/1222_lrec_segunda_y_dic9_pe_producto.jpg";;
  var lrec_width=300;var lrec_height=250;      
  
---------------------------------
  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 Termos do Serviço do 
Yahoo!. 

  


                
---------------------------------
 Yahoo! doce lar. Faça do Yahoo! sua homepage.

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