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,

Empezado por 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]

Empezado por 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.