Escribir solo números en un edit

[CarlosAlberto]

Estimados amigos del club: ¿cómo debo hacer para escribir sólo números en un "edit", es decir al teclear cualquier tecla que no sean números no escriba nada.
Muchas gracias
Saludos.
Carlos Alberto

[TOPX]

Vea

• Edits solo acepte numeros y , . - ClubDelphi ó
• los Hilos Similares a este mismo

-

[[oscarac]]

aqui puedes encontrar algo similar

[[nlsgarcia]]

CarlosAlberto,

Originally Posted by CarlosAlberto

¿cómo debo hacer para escribir sólo números en un "edit"?

Revisa este código:

Código Delphi [-]
procedure TForm1.CheckNumberKey(Sender: TObject; var Key: Char);
begin

   If (Length(Edit1.Text) = 0) and (Key = ',') then
   begin
      Key := Chr(0);
      exit;
   end;

   if (Pos(',',Edit1.Text) <> 0) and (Key = ',') then
   begin
      Key := Chr(0);
      exit;
   end;

   // Solo permite ingresar caracteres númericos, coma y tecla de retroceso
   If not (Key in ['0'..'9',',',#8]) then Key := Chr(0);

end;

El código anterior solo permite ingresar caracteres numéricos, coma decimal y tecla de retroceso en un control TEdit por medio del evento OnKeyPress.

Espero sea útil

Nelson.

[kapcomx]

si tienes XE2 solo tienes que poner en true la propiedad numbersonly

Saludos...

[ecfisa]

Originally Posted by CarlosAlberto

¿cómo debo hacer para escribir sólo números en un "edit", es decir al teclear cualquier tecla que no sean números no escriba nada.

Hola Carlos.

Código Delphi [-]
procedure OnlyNumber(Sender: TWinControl);
begin
  SetWindowLong(Sender.Handle, GWL_STYLE,
    GetWindowLong(Sender.Handle, GWL_STYLE) + ES_NUMBER);
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  OnlyNumber(Edit1);
  OnlyNumber(Memo1);
  ...
end;

Saludos.

[CarlosAlberto]

Estimados amigos del club:
Muchas gracias por las repuestas que me enviaron. Ahora quisiera poder presionar la tecla "Enter" además de los números y pasar al siguiente edit.
Gracias.
Saludos.

[Casimiro Noteví]

Preguntas distintas en hilos distintos, no olvides nuestra guía de estilo.
Y si haces una búsqueda... lo encontrarás más rápido, es algo que se ha tratado muchas veces.

[CarlosAlberto]

Todo me ha servido.
Muchas Gracias.