![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
|
tengo un problema, quiero saber como puedo restringir que en un tedit.text pueda yo solo escribir numeros y no letras ya que en mi tabla tiene que llenarse por numeros (campo numerico y moneda).
de igual forma como hago que si enuna tabla tengo un campo en formato memo sea visto en un dbgrid |
|
#2
|
||||
|
||||
|
Un TEdit lmitado para entrar números
Pon este código en el evento OnKeyPress de tu TEdit y sólo admitirá números: Código:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ( StrScan('0123456789.-',Key) <> nil ) or
( Key = Char(VK_BACK) ) then { BackSpace Key }
begin
{Aqui tu tratamiento normal del evento}
{Here the normal event treatment}
end
else
Key := #0;
end;
__________________
Guía de Estilo de los Foros Cita:
|
|
#3
|
||||
|
||||
|
Una forma muy parecida a la de marcoszorrila pero que me parece un poquito más clara:
Código:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['0'..'9', '.', '-', Char(VK_BACK)] then
begin
{ Tratamiento normal del evento }
end
else
Key := #0;
end;
|
|
#4
|
||||
|
||||
|
Tambien puedes utilizar los componentes TCurrencyEdit y trabajar con su propiedad DisplayFormat del modo ,0.00 ;-,0.00, de esta forma sólo te admitira números positivos o negativos con dos decimales.
__________________
El meu país és tan petit, que des de dalt d'un campanar es pot veure el campanar veí. |
|
#5
|
|||
|
|||
|
Cita:
|
![]() |
|
|
|